my @bla = map { (my $bla = $_) =~ tr/h//d; $bla } @string;