my $x = 1;
sub f1 { $x }
my $x = 2;
sub f2 { $x }
print f1(), f2(), "\n"; # prints "12"