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