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

createTree();
deleteTree();