Perl module to make sort functions for arbitrary sort orders