#!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";
  }
}

##</code><code>##

Id = Holding_aa2b0594-77d6-4264-b277-0218e852cb36
AccountType = Individual
CheckIndicator = No
1035ExchangeIncluded = No
SponsorName = InsCompany

Id = Holding_f2cfb5bd-6009-4bf2-95a0-686cb69a3b7a
OldProductType = 401K