while (1 < scalar (@data4analyze)) { 	

 ...

  foreach (@data4analyze){
     # wenn ein Element zu den Punkten des aktuellen Cluster gehört, dann wegwerfen
	 if (in_array(\@cluster_analyse, $_) == 0){
	    push(@tmp_data4analyze, $_);
     }
  }#end-foreach - @data4analyze
  ...
  
  
# Anhängen des aktuellen Clusters an die Gesamtauswertung
 push(@cluster_field, \@cluster_analyse);
 }#end-while
  
  
 foreach my $elem (@cluster_field)
   {
     print "-----------\n";
	 if (scalar(@$elem) == 1){
	    print "nur ein Punkt\n";
	
	 } else {
		 my $count_cluster = scalar(@$elem);
		 foreach my $wert (@$elem)
		 {
		   my ($lon,$lat) = $wert->center();
	       $sum_lat = $sum_lat + $lat;
		   $sum_lon = $sum_lon + $lon;
		   
		   print "wert: ".$wert->id()."\n";
		 }
		 # Schwerpunkt berechnen
     }#endif - scalar element
   }