my @bla = @arr;
tr/h//d for @bla;

##</code><code>##

my @bla = map{ tr/h//d; $_ } @{\@arr};