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";
                        }
                }
        }
}