Select Code to Download

my @foo = qw/1 2 3 4 5 6/;
print "Index 1 is $foo[1]\n";

my @foo = qw/1 2 3 4 5 6/;
my @bar = splice @foo, 1,2;
print "Indexes 1 & 2 are @bar\n";