#!perl
use strict;
use XML::Twig;

my $twig = XML::Twig->new();
$twig->parsefile('txlife.xml');
my $root = $twig->root;

my @nodes1 = $root->get_xpath('//Holding');
for my $hold (@nodes1){
  print "\nId = ".$hold->att('id')."\n";
  my @nodes2 = $hold->get_xpath('Policy/KeyedValue/KeyValue');
  for my $_ (@nodes2){
    print $_->prev_sibling_text." = ";
    print $_->text."\n";
  }
}