$ perl -MO=Deparse,-p -e 'my $a, $x, $y, $z = foo()'
(my($a), $x, $y, ($z = foo()));