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