File::Finder has a gather() method that will work for you, or you can look at some of the examples in File::Find::Closures. I try to stay away from global (or file-scoped lexicals) in these sorts of problems.