c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e
"my ($w, $x, @y, @z);
 ($w, $x, @y, @z) = qw(Dubya Eks Why? Zee-List-Is-Flattened);
 dd 'w', $w;
 dd 'x', $x;
 dd 'y', \@y;
 dd 'z', \@z;
"
("w", "Dubya")
("x", "Eks")
("y", ["Why?", "Zee-List-Is-Flattened"])
("z", [])

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = (4 => 12, 34 => 102);
 ;;
 while (my %h = each %hash) {
   printf qq{%s => %s \n}, %h;
   }
"
4 => 12
34 => 102

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = (4 => 12, 34 => 102);
 ;;
 while (my @kv = each %hash) {
   local $, = ' => ';
   print @kv;
   }
"
4 => 12
34 => 102