my $val = Dive(\%b, map \$_, @a);
DiveVal(\%b, map \$_, @a) = $val;