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