perldoc -q "How do I sort an array by (anything)?"