Non-Perl answer, take a look at gnu id-utils. It munches through a tree and indexes words in a dbm file. (Very useful set of programs for some purposes).