sub sortkey {
     my ($func, @v);
     my @keys = map { &$func } @v;
     my @ix = sort { $keys[$a] cmp $keys[$b] } 0..$#keys;
     return @v[@ix]
 }