Select Code to Download

 (my ($x, $y, $z) = qw( 1 2 3 )) = qw( a b c );

 my ($x, $y, $z) = qw( 1 2 3 ); # $x = '1', $y = '2', $z = '3'.
 ($x, $y, $z)    = qw( a b c ); # $x = 'a', $y = 'b', $z = 'c'.