my $i = 10;
&print_i;

sub print_i{
    print "$i\n";
}

##</code><code>##

our $i = 10;
....

##</code><code>##

our $i;
...
sub print_i{
    print "$i\n";
}