foreach my $wortteil_1 (keys %lexikon) {
	my $klein_1 = lc($wortteil_1);
	foreach my $wortteil_2 (keys %lexikon) {
		my $klein_2 = lc($wortteil_2);
		if (exists $lexikon{$klein_1.$klein_2}) {
			if ($lexikon{$klein_1} eq "NN" && $lexikon{$klein_2} eq "NN" && $lexikon{$klein_1.$klein_2} eq "NN") {
				print $klein_1.$klein_2 . "\t" . $lexikon{$klein_1.$klein_2} . "\t\t" . $klein_1 . "\t" . $lexikon{$klein_1} . "\t\t" . $klein_2 . "\t" . $lexikon{$klein_2}  . "\n";
			}
		}
	}
}