sort {wheat($a) <=> chaff($b)} @CPAN