Select Code to Download

 

'abc'
...
'121'
'xyx'

'def'
'121'

'121'
'abc'

...

'xyx'

use strict;
use warnings;
...
   print OUTFILE "$line\n" if $results{$line} == 1;
}
close OUTFILE;