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