my @array_korpus = keys %korpus;
foreach my $worttyp (@array_korpus) {                            #hier!
	foreach my $pre (keys %korpus) {                             #hier!
	 	foreach my $post (keys %korpus) {                   #hier!
			if ($worttyp =~ /^$pre$post$/i) {
				print $worttyp . "\n";
			}
		}
	}
}