Win8 Strawberry 5.8.9.5 (32)  Sun 10/11/2020 21:47:54
C:\@Work\Perl\monks
>perl -Mwarnings
my $a=$x=$y=$z = 1;

print "|$a|$x|$y|$z|";
^Z
|1|1|1|1|

Win8 Strawberry 5.30.3.1 (64)  Sun 10/11/2020 21:45:55
C:\@Work\Perl\monks
>perl -Mwarnings
use v5.10;

my $a=$x=$y=$z = 1;

say "|$a|$x|$y|$z|";
^Z
|1|1|1|1|

##</code><code>##

Win8 Strawberry 5.8.9.5 (32)  Sun 10/11/2020 21:48:09
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings
use Data::Dump qw(dd);

sub foo { return 9, 8, 7; }

my ($x, $y, $z);

my $a = $x = $y = $z = foo;

dd $a, $x, $y, $z;
^Z
(7, 7, 7, 7)