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