perldoc -q "How do I sort an array by (anything)?" [download]
In reply to Re^2: Sorting on identical values by BillKSmith in thread Sorting on identical values by slugger415