use strict;
my @nxxult = (3, 5, 29, -1, 398, 585, 920, 45, 39, 281, 03, 591);

my @indexUlt=sort{$nxxult[$a]<=>$nxxult[$b]} 0 ... $#nxxult;

print join(',', @indexUlt) . "\n";


print "done\n";


##</code><code>##

3,0,10,1,2,8,7,9,4,5,11,6