my $foo = 1; our $foo = 2; print $foo ; # prints 2