my @p = sort { $x[$a] cmp $x[$b] } 0 .. @x-1;