Taking a quick scan of the reply's to your four top level nodes, pulling by regex, Pulling by regex II, count sort & output & count sort & output II and given that you pasted these lines from sauoq's post at Re: count sort & output

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

without making any attempt to make any adjustment to the keyboard input used, it is fairly obvious that you are simply cutting and pasting code you don't understand, and show no inclination to try to understand.

It seems to me that you are much worse than the school kid who comes here thinking its a neat idea to get us to do his homework for him. You seem to think that its a neat idea to get us to write your software that you obviously intend to use for commercial purposes for you.

You show no indication of making any effort whatsoever to learn perl. As I typed in response to your first attempt to get us to write this, but can't find now, so maybe I didn't submit it.

Either Get the books, read the books and learn or employ a programmer. There are plenty out there looking for work.

You'll get no further help from me, and I would strongly advise others to take the same attitude.