} elsif ($sim > min(pdl(@topList))) { 
      $theMin = grep { $topX[$_] eq min(pdl(@topX)) } 0..$#topX;
      # replace the smallest
      $topX[$theMin] = $sim;
      # add this one
      push @topX, $sim;
}