my @woerter = grep {/w+/} keys %korpus;

foreach my $schluessel (@woerter) {
	foreach my $pre (@woerter) {
		foreach my $post (@woerter) {
			if ("\L$schluessel" eq "\L$pre$post") {
				print $schluessel . "\n";
			}
		}
	}
}