Habe da eine andere Meinung: ich finde deinen Code nämlich schwer verständlich, insbesondere frage ich mich, das das verschachtelte foreach bringen soll:

hlubenow

Code (perl): (dl )

1
2
3
4
5
6

foreach $i (@b) {
    $h{$i} = 0;
    foreach $u (@a) {
        $h{$u}++;
    }
}

Die 2 Zeilen Code aus FIFOs erster Antwort sind dagegen sofort klar und gut verständlich. Und grep ist doch nun wirklich nicht schwierig zu verstehen.