my $hash;

my $work = \$hash;
$work = \$$work->{$_} for @levels;
$$work = $value;