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