our $a = 3;

sub f {
	print "$a\n";
}

sub g {
	my $a = 7;
	print "$a\n";
	&f ();
	print "$a\n";
}

&g ();
print "$a\n";