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