@array = qw(one two three four five six seven eight); <Some command here> print @array;
使用slice：
@array = @array[ 5 .. $#array ];
使用splice：
splice
splice @array,5;
使用shift：
shift
shift @array for 1..5;
使用grep：
grep
my $cnt = 0; @array = grep { ++$cnt > 5 } @array;
使用map：
map
my $cnt = 0; @array = map { ++$cnt < 5 ? ( ) : $_ } @array;
我确信黑客比黑客更好，甚至可以拿出傻瓜的方式。
