my $p = \$href;
$p = \($$p->{$_}) for @keys;
$$p = $val;