while (my $file = <foo*>) {
   # mach was mit $file
}