@keys = sort {$Top_Twenty_Categories{$b} <=> $Top_Twenty_Categories{$a}} keys %Top_Twenty_Categories;

foreach $key (@keys)
{
   $key: $Top_Twenty_Categories{$key}\n";
}