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