Select Code to Download

my @codes = qw/ CODE1 CODE2 CODE3 /;
my %hitCounts;
...
    next unless $found;
    # logic goes here
}

END {
   print "Regexen in sorted order:\n\t";
   print join "\n\t",sort {$hitCounts{$b}<=>$hitCounts{$a}} @regex;
   print "\n";
}