Select Code to Download

  ...
  print "\nbefore deallocating the huge hash\n" . qx {ps -o rss $$};
  undef %x;
  print "\nafter deallocating the huge hash\n" . qx {ps -o rss $$};
  ...

Initial size:
  RSS
...
after the huge hash goes out of scope
  RSS
12020