perl -MDevel::Peek -le 'our $f = 42; Dump *f{SCALAR}; for $f (2) { Dump *f{SCALAR} }'
SV = RV(0x8664670) at 0x863bc28
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x863c7bc
  SV = IV(0x8657eec) at 0x863c7bc
    REFCNT = 2
    FLAGS = (IOK,pIOK)
    IV = 42
SV = RV(0x8664670) at 0x863be2c
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x863c7ec
  SV = IV(0x8657ee8) at 0x863c7ec
    REFCNT = 3
    FLAGS = (PADBUSY,PADTMP,IOK,READONLY,pIOK)
    IV = 2


##</code><code>##

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

##</code><code>##

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 = (TEMP,ROK)
  RV = 0x9cf1cdc
  SV = IV(0x9d0def8) at 0x9cf1cdc
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY,IOK,pIOK)
    IV = 42
SV = RV(0x9d1a678) at 0x9cf1e2c
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9cf1c28
  SV = IV(0x9d0defc) at 0x9cf1c28
    REFCNT = 1
    FLAGS = (IOK,pIOK)
    IV = 2
SV = RV(0x9d1a678) at 0x9cf1c28
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x9cf1e2c
  SV = IV(0x9d0defc) at 0x9cf1e2c
    REFCNT = 1
    FLAGS = (IOK,pIOK)
    IV = 2

##</code><code>##

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

##</code><code>##

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