Select Code to Download

my %match = (
   'pattern_one' => 1,
...
   $ct++;
}
close(F);

my %match = (
   'pattern_one' => [\&sub_one, $results_one],
...

} # END while <F>
close(F);