$ perl -wMstrict -le 'print map { (2, $_) } 1 .. 2'
2122
$ perl -wMstrict -le 'print map {; 2, $_ } 1 .. 2'
2122
$ perl -wMstrict -le 'print map { +2, $_ } 1 .. 2'
2122