C:\test>perl -MDevel::Peek=Dump -E"my %h; Dump \%h; my %i=(); Dump \%i;"
SV = RV(0x9ecb8) at 0x9eca8
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x2e7590
  SV = PVHV(0x2cd310) at 0x2e7590
    REFCNT = 2
    FLAGS = (PADMY,SHAREKEYS)
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0
SV = RV(0x9ecb8) at 0x9eca8
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x2e7608
  SV = PVHV(0x2cd338) at 0x2e7608
    REFCNT = 2
    FLAGS = (PADMY,SHAREKEYS)
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0