c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my @A1 = qw(a b c d e f g);
 my $n = 2;
 my @A2 = splice @A1, -$n;
 ;;
 print Dumper [\@A1, \@A2];
"
$VAR1 = [
          [
            'a',
            'b',
            'c',
            'd',
            'e'
          ],
          [
            'f',
            'g'
          ]
        ];