foreach my $schluessel (keys %korpus) {
	if ($schluessel =~ /\w+/) {
		foreach my $pre (keys %korpus) {
			foreach my $post (keys %korpus) {
				if ($schluessel eq "\Q$pre$post\E") {
					print $schluessel . "\n";
				}
			}
		}
	}
}