Select Code to Download

my %hit;
foreach my $t (@term) {
...
# Filter (keys %hits) by # of hits (at least 2), then sort.
my @res = sort { $hit{$b} <=> $hit{$a} }
  (grep {$hit{$_} >= 2} keys %hit);