Perl里列表截断小技巧

如果一个列表有m项，而想获取除第n项之后的数组时，可以用这个小技巧

 

my @original_array=qw(a b c d e f g);

my @except_first=@{$original_array[1]};