#	Vergleich von 2 Titelwörtern 
for ( my $i=0; $i<=$count; $i++ ) {
	
	next if ( $ResultCountTitle >= $MaxCountClusterTitle );		#	zähle nur die ersten 5 Ergebnisse als Cluster 
	next if ( $ResultHashRefUrl{$i} eq '' );					#	überspringe leere elemente
	
	#	für alle einzelnen wörter aus dem array $i 
	for ( my $m=0; $m<=$#{$CLUSTERTITLE{$i}} ; $m++ ) {
		
		#	baue eine for schleife über alle $count einträge,
		#	diese scheife wird dann benutzt, um das element @{$CLUSTERTITLE{$i}}[$m] mit @{$CLUSTERTITLE{$j}}[0] bist @{$CLUSTERTITLE{$j}}[$n] zu vergleichen
		for ( my $j=0; $j<=$count ; $j++ ) {

			next if ( $ResultCountTitle >= $MaxCountClusterTitle );
			next if ( $ResultHashRefUrl{$j} eq '' );
			next if ( $i == $j );

			#	vergleiche alle elemente von @{$CLUSTERTITLE{$j}}[] mit @{$CLUSTERTITLE{$i}}[$m]
			for ( my $n=0; $n<=$#{$CLUSTERTITLE{$j}} ; $n++ ) {
				
				next if ( $ResultCountTitle >= $MaxCountClusterTitle );
				$wordcount++;

				#	speed hacks - ignoriere alles was kürzer/gleich 4 buchstaben ist
				next if ( length(@{$CLUSTERTITLE{$i}}[$m]) <= $IgnoreResultsShorterThan );
				next if ( length(@{$CLUSTERTITLE{$i}}[$m+1]) <= $IgnoreResultsShorterThan );
				next if ( length(@{$CLUSTERTITLE{$j}}[$n]) <= $IgnoreResultsShorterThan );
				next if ( length(@{$CLUSTERTITLE{$j}}[$n+1]) <= $IgnoreResultsShorterThan );
	
				my $StrOne	= @{$CLUSTERTITLE{$i}}[$m] . " " . @{$CLUSTERTITLE{$i}}[$m+1];
				my $StrTwo	= @{$CLUSTERTITLE{$j}}[$n] . " " . @{$CLUSTERTITLE{$j}}[$n+1];
			
				if ( lc($StrOne) eq lc($StrTwo) ) {
					
					$HashRefDoubleItems{$StrOne}++;

					if ( $HashRefDoubleItems{$StrOne} >= 2) {	# ignoriere das vorkommen von doppelten clustern
						
						next if ( $ResultHashRefUrl{$i} eq '' );
						next if ( $ResultHashRefTitle{$i} eq '' );
						next if ( $ResultHashRefDesc{$i} eq '' );
						next if ( $ResultHashRefEngine{$i} eq '' );
						next if ( $ResultHashRefBoost{$i} eq '' );

					#	print "$HashRefDoubleItems{$StrOne} TITLE: '$StrOne'\n";
						print " $ResultHashRefEngine{$i} $ResultHashRefUrl{$i} $ResultHashRefTitle{$i} $ResultHashRefDesc{$i}\n";

					} else {
					
						# es gibt nur 2 ergebnisse im cluster
						next if ( $ResultHashRefUrl{$i} eq '' );
						next if ( $ResultHashRefTitle{$i} eq '' );
						next if ( $ResultHashRefDesc{$i} eq '' );
						next if ( $ResultHashRefEngine{$i} eq '' );
						next if ( $ResultHashRefBoost{$i} eq '' );
					
						print "TITLE: '$StrOne'\n";
							
					#	$ResultCountTitle++;
						$clustercount++;

					};

				};
			};
		};
	};
};