my $filename;
my $counter;
foreach $filename (@filelist) {
   open(IN, '<', $filename)
   or do { warn("Error opening $filename."); next; };

   $counter++;

   print OUT ("${counter}: $_") while (<IN>);
   close(IN);
}