in reply to Sort array
See: How do I sort an array by (anything)? in the Data: Arrays section of perlfaq4; and A Fresh Look at Efficient Perl Sorting.
Give a man a fish: <%-{-{-{-<