$i = 0;
foreach $key (sort {$freqpage{$b} <=> $freqpage{$a}} keys %freqpage)
   {
       print HOTFILES "$freqpage{$key}\n"; 
       print HOTFILES "$key \n"; 
       if($i++ > 20) { last }
   }