my $ct=0;  my @nxxult = (); my @Ultmnsort = (); my @indexUlt = ();
for(my $rn=4;$rn<=32;$rn +=4)
  {
	for(my $bn=1;$bn<=$row[0];$bn++)
	{
	   $nxxult[$bn]=$ldx[$bn][$rn];
	}
       @indexUlt=sort{$nxxult[$a]<=>$nxxult[$b]} 0 ... $#nxxult;
        $Ultmnsort[$ct]=$indexUlt[0];
        $Ultmxsort[$ct]=$indexUlt[$#indexUlt];
        $ct++;
  }