perl -MDevel::Peek -e 'Dump \%ENV, 1'

##</code><code>##

SV = RV(0x183a4ec) at 0x2251d8
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x225db4
  SV = PVHV(0x229584) at 0x225db4
    REFCNT = 2
    FLAGS = (SMG,RMG,SHAREKEYS)
    IV = 29
    NV = 0
    MAGIC = 0x182a964                            <----
      MG_VIRTUAL = &PL_vtbl_env
      MG_TYPE = PERL_MAGIC_env(E)
    ARRAY = 0x18257cc  (0:13, 1:11, 2:6, 3:2)
    hash quality = 102.6%
    KEYS = 29
    FILL = 19
    MAX = 31
    RITER = -1
    EITER = 0x0