>339
これでどう？

@list= qw(A B C D E F);
push(@new, splice(@list, $#list- 1, 2));