Select Code to Download

sub main
{
...
   my ($id2_ref) = @_;
   print "inside doSub2, id2=$$id2_ref\n";
}

my $id2_value = $$hash_ref{'id2'};
&doSub2{\$id2_value);
$$hash_ref{'id2'} = $id2_value;