c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y, $z);
 ;;
 ($x, $y, $z) = qw( 1 2 3 );
 print qq{$x, $y, $z};
 ;;
 (($x, $y, $z) = qw( 1 2 3 )) = qw( a b c );
 print qq{$x, $y, $z};
 ;;
 ((($x, $y, $z) = qw( 1 2 3 )) = qw( a b c )) = qw(foo bar baz);
 print qq{$x, $y, $z};
"
1, 2, 3
a, b, c
foo, bar, baz

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y, $z) = qw( 1 2 3 );
 print qq{$x, $y, $z};
 ;;
 (my ($u, $v, $w) = qw( 1 2 3 )) = qw( a b c );
 print qq{$u, $v, $w};
 ;;
 ((my ($r, $s, $t) = qw( 1 2 3 )) = qw( a b c )) = qw(foo bar baz);
 print qq{$r, $s, $t};
"
1, 2, 3
a, b, c
foo, bar, baz