my @a = (1,2,3,4,5);
(undef, my @b) = (@a);
print "@b\n";
#prints: 2 3 4 5 (the 1 is gone)

##</code><code>##

my @a = (1,2,3,4,5);
my @b = @a[0,2..4];
print "@b\n";
#prints: 1 3 4 5

##</code><code>##

my $text = "1 2 3 4 5 6";
my @tokens = split(/\s+/,$text,2);
foreach (@tokens)
{
   print "$_\n";
}
#prints:
1
2 3 4 5 6