in reply to Smoothsort

my @sorted = sort {comparator($a,$b)} @unsorted; # fixed.

[download]

In Section Seekers of Perl Wisdom