print Dumper $tree;
        $tree->DESTROY(); #clear circular references
        print Dumper $tree; <STDIN>;