$g = 0; print "\$g = $g"; next;