open IN,'<',$matchfile or die "Could not open $matchfile\n";
open OUT,'>>,$outfile or die "Could not open $outfile\n";

##</code><code>##

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