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