Select Code to Download

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

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