for my $key (keys %regio) {
    my $value = $regio{ $key }; # arrayref laut deinen angaben
    # öffnet datei in /path mit dem $key als dateinamen
    open my $fh, ">", "path/$key.txt" or die $!;
    # schreibt die werte der arrayref mit leerzeichen getrennt in die datei
        
        my @value = @$value;
                foreach my $v (@value)
                        {
                        print $fh $v,"\n";
                        }

   #print $fh "@$value\n";
    # $fh wird hier automatisch geschlossen, oder explizit:
    close $fh or die $!;
}