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