That's a needless sort(), unless the original data list was sorted.

japhy -- Perl and Regex Hacker