Select Code to Download

my (undef, $a, undef, $b, @rest, $c) = (1, 2, 3, 4, 5, 6, 7, 8);

my $count   = @rest; # 4 - because there are four items (scalar contex
+t)

my ($first) = @rest; # 5 - because first item is 5 (list context)

my $last = (11, 22, 33, 999); # 999 - because assigning LIST to scalar
+ only picks last item