Select Code to Download

%seen = ();
@seen{ @file1 } = ();
...
@infile2only =  grep { ! exists $seen{$_} } @file1;

@matched = grep { exists $seen{$_} } @file1;