c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @x = map $_ > 1, -3 .. 3;
 dd \@x;
"
["", "", "", "", "", 1, 1]