use Devel::Peek;

my $i;          # Lexical variable

sub foo { Dump($i); }

Dump($i);       # SV ... at 0x226048  \
for $i ( 1 ) {  #                      > same
   foo();       # SV ... at 0x226048  /
   Dump($i);    # SV ... at 0x226d8c
}

##</code><code>##

use Devel::Peek;

our $i;         # Package variable

sub foo { Dump($i); }

Dump($i);       # SV ... at 0x226d94
for $i ( 1 ) {
   foo();       # SV ... at 0x226d7c  \ same
   Dump($i);    # SV ... at 0x226d7c  /
}