while (<*BLAH*>) {
 my $file = $_;
 # Do stuff with file
}