my @string = "hallo";

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