use strict; sub foo { our $bla = 1; } sub bar { our $bla; print $bla, "\n"; } foo(); bar();