1) use Data::Dumper;

2) my @keys = qw( this that those );
3) my $node = \\my %hash;

4) $node = \$$node->{$_} for @keys;

5) $$node = "value";

6) print Dumper \%hash;