@array = (5,2,6,8,10,1,4,7,4,2,21,18,25,10);;

@orderedIndexes = sort{ $array[ $b ] <=> $array[ $a ] } 0 .. $#array;;

print @orderedIndexes;;
12 10 11 4 13 3 7 2 0 6 8 1 9 5