our (@stack, @directory, %file);  
our ($treeId, $treeRef, $treeRoot, $lastXMLElement); 

sub describeTreeObject { 
  ($treeRef, $treeId) = @_; 
  $treeRoot = $treeId; 
}