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

##</code><code>##

my $p = $href;
for (@keys) {
   return 0 if !exists($p->{$_});
   $p = $p->{$_};
}
return 1;