将文件拖入数组变量
open(my $fh, '<', "/some/path") or die $!;
my @ary = <$fh>;
在列表上下文中进行求值时，菱形运算符返回一个由文件中所有行组成的列表（在这种情况下，将结果分配给数组耗材列表上下文）。保留行终止符，可以通过 chomping 删除：
chomp(@ary); #removes line terminators from all the array elements.
open(my $fh, '<', "/some/path") or die $!;
my @ary = <$fh>;
在列表上下文中进行求值时，菱形运算符返回一个由文件中所有行组成的列表（在这种情况下，将结果分配给数组耗材列表上下文）。保留行终止符，可以通过 chomping 删除：
chomp(@ary); #removes line terminators from all the array elements.