Hast du schon mal versucht eine Liste mit allen Dateien des Verzeichnisses einzulesen? Wie viele sind denn sehr viele? Ich würde für so was File::Find benutzen. Aber das klappert auch alle Dateien ab.