in reply to FileHandles in a Hash

File::Find will be your friend here.

In Section Seekers of Perl Wisdom