# Sort and print
for (sort {$referers{$b} <=> $referers{$a}} keys %referers) {
    if ($counter <= 10) {
       open (FILE, ">storage1.txt") || die('Could not open $storage1.txt: $1');
       print "$_ - $referers{$_}<p>";
       print FILE "$_ - $referers{$_}<p>";
       ++$counter;
    } elsif ($counter > 10 && $counter <= 20) {
       if ($counter == 11) {
           print "<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"storage2.txt\"><font color=\"FF0000\">Next</font></a><br>";
           print FILE "<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"storage2.txt\"><font color=\"FF0000\">Next</font></a><br>";
           open (FILE2, ">storage2.txt") || die('Could not open $storage2.txt: $1');
           print FILE2 "$_ - $referers{$_}<p>";
           ++$counter;
        }
    } elsif ($counter > 20 && $counter <= 30) {
       if ($counter == 21) {
           print "<p>a href=\"storage2.txt\"><font color=\"FF0000\">Previous</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"storage3.txt\"><font color=\"FF0000\">Next</font></a><br>";
           open (FILE3, ">storage3.txt") || die('Could not open $storage3.txt: $1');
           print FILE3 "$_ - $referers{$_}<p>";
           ++$counter;
        }
     } elsif ($counter > 30 && $counter <= 40) {
       if ($counter == 31) {
           print "<p>a href=\"storage3.txt\"><font color=\"FF0000\">Previous</font></a><br>";
           open (FILE4, ">storage4.txt") || die('Could not open $storage4.txt: $1');
           print FILE4 "$_ - $referers{$_}<p>";
        }
     }
}
close FILE;
close FILE2;
close FILE3;
close FILE4;