Select Code to Download

sub f1 { return (33, 42) }
sub f2 { return my @x = (33, 42) }
...
print "first: $first    (expecting 33)\n";
print "last: $last      (expecing 42)\n";
print "first2: $first2  (expecting 33)\n";

# Output:
nelts: 42    (expecting 2)
first: 33    (expecting 33)
last: 2      (expecing 42)
first2: 33  (expecting 33)