foreach my $file (@files) {
  foreach my $file2 (<IN>) {