@array = qw(one two three four five six seven eight); <Some command here> print @array;
解决方法
这里有几种方式，以增加的笨拙顺序：
使用slice：
@array = @array[ 5 .. $#array ];
使用splice：
splice @array,5;
使用shift：
shift @array for 1..5;
使用grep：
my $cnt = 0;
@array = grep { ++$cnt > 5 } @array;
使用map：
my $cnt = 0;
@array = map { ++$cnt < 5 ? ( ) : $_ } @array;
我确信黑客比黑客更好，甚至可以拿出傻瓜的方式。 原文链接：https://www.f2er.com/Perl/172967.html