You only have an issue if you want to avoid it.

update

hmm thats the problem if you post from a mobile client without possibility to test...

I'll update a working solution, though using Data::Diver should help already.

update

use warnings;
use strict;
use Data::Dumper;

my @keys="a".."d";
my %hash=();
my $href=\%hash;

my $lastkey= pop @keys;

for my $key (@keys) {
  $href =
    $href->{$key} //= {} ;
}

$href->{$lastkey} = "";

print Dumper \%hash;
[download]

$ perl dive.pl 
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'd' => ''
                                   }
                          }
                 }
        };
[download]

update

Hi Rolf, this is what I needed... having an older perl-version,I used for my $key (@keys) { $href =  $href->{$key} = {} unless defined $href->{$key};} is this notation {} having a specific usage or name ? Anyway, many thanks for the suggestion !!!

Your code won't work as expected, because of low precedence of unless . Either use parentheses or a ternary operator.

Better have a look at Re^2: define a hash-value, using hash-ref and a list of keys if Perl < 5.10 is an issue.

{} is an anonymous hash (-ref).

Cheers Rolf

_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}

janssene:

Yes, I've botched that in my original answer. I've fixed it, though. (I also notice that LanX's repair is cleaner than mine. I need to start using the //= operator more often.

...roboticus

When your only tool is a hammer, all problems look like your thumb.