#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;

my $string = "\n  <files name=\"Common.h\">\n    <enums>\n      <members kind=\"enum\" name=\"PermissionLevel\" protection=\"public\" static=\"no\" virtualness=\"non_virtual\">\n        <values initializer=\" 99\" name=\"PERMISSION_PUBLIC\"></values>\n        <values initializer=\" 98\" name=\"PERMISSION_NDA\"></values>\n      </members>\n      <members kind=\"enum\" name=\"RegisterType\" protection=\"public\" static=\"no\" virtualness=\"non_virtual\">\n        <values initializer=\" 4\" name=\"REGISTER_PCI\"></values>\n      </members>\n    </enums>\n    <functions>\n      <members const=\"no\" kind=\"function\" name=\"Compare\" protection=\"public\" static=\"no\" type=\"bool\" virtualness=\"non_virtual\" volatile=\"no\">\n        <parameters declaration_name=\"first\" type=\"T\"/>\n        <parameters declaration_name=\"second\" type=\"T\"/>\n      </members>\n    </functions>\n  </files>";
print $string;

my $twig = XML::Twig->new;
$twig->parse( $string );

my @names = $twig->ancestors('values');
print @names;