sub f1 { return (33, 42) }
sub f2 { return my @x = (33, 42) }

my $nelts = f1();    # apparently returns number of elements (2)
my ($first) = f1();  # apparently returns first element (33)

my $last = f2();     # apparently returns last element (42)
my ($first2) = f2();  # apparently returns first element (33)

print "nelts: $nelts    (expecting 2)\n";
print "first: $first    (expecting 33)\n";
print "last: $last      (expecing 42)\n";
print "first2: $first2  (expecting 33)\n";