You need to simply break out of the foreach loop you are in Something like the following would work fine.

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

Good luck.
Crulx crulx@iaxs.net