I wasn't trying to say one person's code sucked over another's. I was just giving benchmark information. When we have a lot of code offered like that I like to see statistics like that sometimes. A good benchmark usually means the coder has a good understanding of what operations in Perl are more efficient, and took that into account when offering his solution. In my eyes that's the sign of a very good Perl coder!

Any arbitrary "rating" taking other aspects of their code into account would be incredibly subjective and not very useful. Readability is in the eye of the beholder, so to speak, so take a look at each of them and decide for yourself which one is the most elegant in your eyes for the efficiency it gets.