Help for this page
use Data::Diver qw( Dive ); ... my $val = Dive(\%hash, map \$_, @path); ... }
sub dive { my $r = shift; ... my $val = dive(\%hash, @path); ... }