my @string = "hallo";

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