>perl -le "print 0 + map undef, 1..2
2
>perl -le "print 0 + map { () } 1..2
0