Help for this page
for(my $bn=1;$bn<=$row[0];$bn++)
@indexUlt=sort{$nxxult[$a]<=>$nxxult[$b]} 0 ... $#nxxult;