为了很久不用 Perl 的人，快点熟悉这门语言：

使用 given .. when

use experimental 'switch';

然后就能用：

given ($var) {
    when ("a") { say "it is a" }
    default { say "it is not a" }
}

语句后面的分号

语句后面必须跟随分号，但如果是代码块的最后一句，可以不用。

if (1) { return $var }

多重赋值：

my ($a, $b) = (1, 2);

声明常量

use constant {
  Eof   => "\0",
  Ein   => "\1",
  Out   => "\2",
};

关键字 函数命名要注意了

last next sub

字符串不能直接索引

sub index_at {
    my ($str, $at) = @_;
    return substr($str,$at,1);
}

数组可以索引， 但不支持负数

 my $arr = [ 'ab', 'cd' ];
 my $str = $arr->[0];

哈希索引使用大括号

 my $hash = { 'a' => 1, 'b' => 2 };
 say $hash->{a}; # same as $hash->{'a'}

注意：hash 的键如果是字母，可以不用引号