my @rank[sort {$x[$a] cmp $x[$b] } 0..$#x] = 0..$#x;