Das geht mit dem Modul File::Find ganz einfach:


Statt die obige sub zu übergeben, kannst du da jetzt entweder:
- eine kurze sub reinschreiben, die alle Dateien (mit -f testen) in dein Array pusht
- eine Referenz auf eine benannte sub übergeben, die dann die jeweilige Datei abarbeitet.

Achtung: das find gibt auch Directories aus, du musst also immer gucken, ob es eine "normale" Datei ist: perldoc -f -f