Select Code to Download

use strict;
use warnings;
my $f2 = 'cat_mapping_in_A.txt';
...
   print OUTFILE "$line\n" if $results{$line} == 1;
}
close OUTFILE;