Language Basics Perl

$x = $y = $z = 1;
print join (", ", $x, $y, $z);