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 $!;
}