Select Code to Download

use Data::Diver qw( Dive );

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

sub dive {
   my $r = shift;
...
   my $val = dive(\%hash, @path);
   ...
}