@keys = map gen_key($_), @data;
@sorted = @data[sort {$keys[$a] <=> $keys[$b]} 0..$#keys];