@PerlProfi...

Das Auszählen der Treffer funktioniert doch einwandfrei. Ich habe jetzt lediglich ein
@found = sort{$a<=>$b}(@found);
@found = reverse (@found);
an Deinen Code angefügt, um die Ausgabe bei mir mit den höchsten Treffern als erstes zu bekommen.

Und auch noch mal Danke für die Erklärungen zu Deienm kompletten Script!