for (@FN) { while (defined(my $filename = glob($_))) { ... } }