my @fnames = glob("foo*");
foreach my $fname (@fnames) {
  # Do something then $fname...
}