Help for this page
@ranks[@sorted_positions] = (0 .. $#sorted_positions);
@ranks[1, 3, 5, 7, 9] = (0, 1, 2, 3, 4);
#!/usr/bin/env perl -l ... print "@ranks"; @ranks[@sorted_positions] = (0 .. $#sorted_positions); print "@ranks";
a b c d e f g h i j a 0 c 1 e 2 g 3 i 4