The answer that's going to do you the most good is this: Buy a copy of Learning Perl and check out the standard documentation for the sort function and the Perl Data Structures Cookbook, the latter of which even has code examples for doing precisely this.

Alternatively, you can go back to the author of this script and ask him to add this functionality.