my ($x, $y, $z);
$x = $y = $z = 20;
print "$x $y $z";

--output:--
20 20 20