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  /
}