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