errol:~ [19:01:32]$ perl -wMstrict -le 'my $x; print map $x++, (1) x 3'
012