$ perl temp.pl
in sub $z = 0
in main $x = 3
in sub $z = 0