not much

$ perl -MDevel::Peek -e " %f = qw/ AAA BBB /; $q = bless{ qw/ CCC DDD / }, q/TheQ/; Dump(\%f); Dump($q); "
SV = IV(0x3f9bc8) at 0x3f9bcc
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x99b9fc
  SV = PVHV(0x3ff39c) at 0x99b9fc
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    ARRAY = 0x994124  (0:7, 1:1)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "AAA" HASH = 0x320d3b3d
    SV = PV(0x3f7a4c) at 0x3f9a9c
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x994304 "BBB"\0
      CUR = 3
      LEN = 12
SV = IV(0x3f9b98) at 0x3f9b9c
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x3f9b7c
  SV = PVHV(0x3fecec) at 0x3f9b7c
    REFCNT = 1
    FLAGS = (OBJECT,SHAREKEYS)
    STASH = 0x3f9c1c    "TheQ"
    ARRAY = 0xa78284  (0:7, 1:1)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "CCC" HASH = 0x78f11fea
    SV = PV(0x3f7a74) at 0x3f9b8c
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x9a0c3c "DDD"\0
      CUR = 3
      LEN = 12

$ perl -MDevel::Size=total_size -l -
%f = qw/ AAA BBB /; $q = bless{ qw/ CCC DDD / }, q/TheQ/;
print for total_size(\%f ), total_size($q);
__END__
137
137
[download]