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)