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