Your problem is that you keep sorting the list of prime numbers. First of all, this should be unnecessary, since you add them to the list in sequential order.

But in this case, it also causes confusion, since you sorted the list in alphabetical order. Hence, 11 comes before 2. The real solution is to remove both of the sorts from your code.

But if for some reason you actually did need to sort them, you would do this instead:

@primes = sort { $a <=> $b } @primes
[download]

Update: It's amazing that I generated the same content as chipmunk did, but that it took me so much longer. I really have to work on my typing skills...

buckaduck