Select Code to Download

use Data::Diver qw( DiveVal );

...
   my $new_val = ...;
   DiveVal(\%hash, map \$_, @path) = $new_val;
}

sub dive_val :lvalue {
   my $p = \shift;
...
   my $new_val = ...;
   dive_val(\%hash, @path) = $new_val;
}