for my $element ( @elements ) {
        my $file = "$element.txt";

        # nur bearbeiten wenn vorhanden        
        if(exists($regio{$element})){
                # ueberschreibendes Schreiben
                open my $outfh, '>', $file or die "open(w, $file) failed: $!\n";
                # anhaengendes Schreiben
                #open my $outfh, '>>', $file or die "open(w+, $file) failed: $!\n";
                print $outfh join( "\n", @{ $regio{$element} } );
                close $outfh or die "close(w+, $file) failed: $!\n";
        }
}