perl -e 'sub f{my$p=shift;$$p++;} f(\(my ($g)="val")); print "g:$g\n"'