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