my @bla = map{ tr/h//d; $_ } @{[@arr]};
#                              ^    ^