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