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