do 函数来执行一段 Perl 代码，可以避免创建新的变量作用域。do {
my $var = 1;
print $var;
};
$[ 变量可以设置数组的起始索引值，默认为0。$[ = 1;
my @array = (1, 2, 3);
print $array[1]; # 输出2
?: 运算符可以简洁地实现条件判断。my $var = 1;
my $result = $var == 1 ? "One" : "Not One";
//= 运算符可以简洁地实现变量的默认赋值操作。my $var;
$var //= "default value";
map 和匿名子例程可以实现快速的数组处理操作。my @array = (1, 2, 3);
my @result = map { $_ * 2 } @array;
grep 和匿名子例程可以实现快速的数组过滤操作。my @array = (1, 2, 3, 4, 5);
my @result = grep { $_ % 2 == 0 } @array;
