{
    my $a = 1;
    sub f1 { $a; print "f1: a=", eval('$a'), "\n";  }
    sub f2 {     print "f2: a=", eval('$a'), "\n";  }
}
f1(); f2();