in reply to How to sort a list of strings by an arbitrary field separator
This is a FAQ. See perlfaq4, on "How do I sort an array by (anything)?".