C:\test>\perl32\bin\perl -MTime::HiRes=time -we"my@a=0..1e6;my$t=time;my@bla=@a; tr[0][]d for @bla;print time-$t; <>"
0.638000011444092

C:\test>\perl32\bin\perl -MTime::HiRes=time -we"my@a=0..1e6;my$t=time;my@bla=map{tr/h//d;$_}map{$_}@a;print time-$t; <>"
9.05199980735779