Sorting in Perl II (Schwartzian Transform)