Select Code to Download

my @elem = ( 1..20 );
my @e = map { $_ if (s/0/./g || 1) } @elem;
print join( " ", @elem ), "\n";
__END__
1 2 3 4 5 6 7 8 9 1. 11 12 13 14 15 16 17 18 19 2.

my @elem = map { int rand 1000 } 1..10000;

...
      Rate for map
for 15.8/s  -- -4%
map 16.5/s  4%  --