use Data::Dumper;

my $my_hash_ref = { a => { b => { c => 2 } } };

my @k = qw( a b c );

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

print Dumper($my_hash_ref);
# { 'a' => { 'b' => { 'c' => 2 } } };