Select Code to Download

my (%hash);
$hash{'id1'} = "1";
...
my ($href) = @_;
$$href = "value changed in doSub2";
}

#... inside doSub1
my ($s) = $$hrec_ref{'id2'};
doSub2(\$s);
$$hrec_ref{'id2'} = $s;