And hope the script is not run on a computer where the directories contain too many files. Besides, that code would produce something somewhat usable only if the @directories contained a single directory and that directory had no subdirectories. You only stored the filenames!

The condition in front of the push() is insanely complex, but there is no reason whatsoever not to include the pruning within the wanted() subroutine.