you should try Sort::Key, it has a very simple API and it's faster and uses less memory than any other perl sorting technique:

use Sort::Key qw(keysort);
my @sorted = keysort { genkey($_) } @data;
[download]