my @array = (1,2,3,4,5,6);
   my $ndist_sum = nneighbours(@array);