use strict;
use warnings;
use XML::XPath;
use Data::Dumper;

my $bamxml = 'OpenApi.xml';
my $bamxp = XML::XPath->new(filename => $bamxml);
my $bamxpath =  $bamxp->findnodes('//nodes/node/children/node/children/node');

my @records;
foreach my $bamnode ($bamxpath->get_nodelist) {
	my $name   = $bamxp->find('./@name',$bamnode)->string_value;
	my $citype = $bamxp->find('./@ciType',$bamnode)->string_value;
	my $status = $bamxp->find('./dimension/@status',$bamnode)->string_value;
	my $time = $bamxp->find('./dimension/body/entry[@key="Last Status Change"]',$bamnode)->string_value;
	s/^\s+|\s+$//g for $name,$citype,$status,$time;
	push @records, {
		name => $name,
		citype => $citype,
		status => $status,
		Time => $time
	};
}
print Dumper(\@records);