use Object::Destroyer qw( ); $tree = Object::Destroyer->new($tree);