Select Code to Download

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

my $p = $href;
for (@keys) {
...
   $p = $p->{$_};
}
return 1;