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

##</code><code>##

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

##</code><code>##

print scalar (my ($x, $y, $z) = qw( a b c d ));  # 4

##</code><code>##

($x = 12) =~ s/1/4/; print $x;  # 42