%h_delete = %h_list = %h_undef = (0 .. 50000);

delete @h_delete{keys %h_delete};
%h_list = ();
undef %h_undef;

use Devel::Peek;

Dump \%h_delete;
Dump \%h_list;
Dump \%h_undef;

##</code><code>##


SV = RV(0x830eb38) at 0x838d3a4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x8171818
  SV = PVHV(0x8171d20) at 0x8171818
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    IV = 0
    NV = 0
    ARRAY = 0x40376008
    KEYS = 0
    FILL = 0
    MAX = 32767
    RITER = -1
    EITER = 0x0

SV = RV(0x830eb38) at 0x838d3a4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x81765cc
  SV = PVHV(0x8171d50) at 0x81765cc
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    IV = 0
    NV = 0
    ARRAY = 0x403d8008
    KEYS = 0
    FILL = 0
    MAX = 32767
    RITER = -1
    EITER = 0x0

SV = RV(0x830eb38) at 0x838d3a4
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x81765fc
  SV = PVHV(0x8171d80) at 0x81765fc
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    IV = 0
    NV = 0
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0