for(my $bn=1;$bn<=$row[0];$bn++)

##</code><code>##

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