my $r = $my_hash_ref;
$r = $r->{$_} foreach @k;

##</code><code>##

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