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