What about if the '$tree' is a static variable?

BEGIN {
  $tree = {};
  sub createTree
  {
      # we create big tree ...
  }
  sub deleteTree
  {
      $tree = undef;  # or $tree = {};
  }
}

createTree();
deleteTree();
[download]

Is this also apply?