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";