foreach $key (sort by_score keys %frequency){
    print OUTFILE "$key $frequency{$key}\n";
}
sub by_score 
{
   $frequency{$b} <=> $frequency{$a};
}