# Sort and print
 for (sort {$referers{$b} <=> $referers{$a}} keys %referers) {
   print "$_ - $referers{$_}<p>";
   unless (++$counter % 10) { print "Press Enter"; <STDIN> }
 }