Select Code to Download

use warnings;
use strict;
...
    my ($id2_ref) = @_;
    print "inside doSub2, id2=$id2_ref\n"; # no need to deref this!
}

inside doSub1, id=001
inside doSub2, id2=002
back main, id=001, id2=002