Select Code to Download

perl -MDevel::Peek -le 'our $f = 42; Dump *f{SCALAR}; for $f (2) { Dum
+p *f{SCALAR} }'
SV = RV(0x8664670) at 0x863bc28
...
    FLAGS = (PADBUSY,PADTMP,IOK,READONLY,pIOK)
    IV = 2

SV = RV(0x8664670) at 0x863bc28 # outside
SV = RV(0x8664670) at 0x863be2c # inside

perl -MDevel::Peek -le 'my $f = 42; Dump \$f; for $f (2) { Dump \$f } 
+for my $f (2) { Dump \$f }'
SV = RV(0x9d1a678) at 0x9cf1c28
...
    REFCNT = 1
    FLAGS = (IOK,pIOK)
    IV = 2

SV = RV(0x9d1a678) at 0x9cf1c28
SV = RV(0x9d1a678) at 0x9cf1e2c
SV = RV(0x9d1a678) at 0x9cf1c28

my $f;
for $f (1..3) { }
for my $f (1..3) { }