You could build an array with File::Find, but a simpler way would be to use file globbing to just get the file names directly:

while (my $file=<*/foo/bar.txt>) {
 #Open/read $file and do Stuff
}
[download]