use strict;
use warnings;
my @FN = qw( a b );
for my $k (0..$#FN) {
   my $filename = <$FN[$k]>;
   print("$filename\n");
}
[download]

a
Use of uninitialized value in concatenation (.) or string at 689777.pl
+ line 6.
[download]

If @FN contains glob patterns, then he wants

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

If @FN contains file names (as it seems to), then he wants

for my $filename (@FN) {
   ...
}
[download]

Although it looks like @FN isn't needed at all.

for (0..18, 20..28, 30..38) {
   my $filename = sprintf('out-02-%02d.txt', $_);
   ...
}
[download]