Select Code to Download

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

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