perl -e 'sub foo {return (1,2,3,4)}; my $a, $x, $y, $z = foo(); print qq{$a, $x, $y, $z\n}'
, , , 4

##</code><code>##

perl -e 'sub foo {return (1,2,3,4)}; my ($a, $x, $y, $z) = foo(); print qq{$a, $x, $y, $z\n}'
1, 2, 3, 4