#!perl

use strict;
use warnings;

our $i = 0;

for (1 .. 3) {
  show();
}

inner_sub();

sub inner_sub {
    my $i = 8;
    show();
};

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