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