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", [])