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