my $p = \$my_hash_ref;
$p = \($$p->{$_}) foreach @k;