my $foo;

sub FOO () { $foo }

$foo = 1;
print FOO, "\n";

$foo = 2;
print FOO, "\n";