{ my $shared; sub f1 { ... # use $shared } sub f2 {...} }