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

my $file = 'OpenApi.xml';
my @records;
XML::Twig->new(
	twig_roots => {
		'/nodes/node/children/node/children/node' => sub {
			my ($t, $elt) = @_;
			my $dim = $elt->first_child('dimension');
			push @records, {
				name => $elt->att('name'),
				citype => $elt->att('ciType'),
				status => $dim->att('status'),
				Time => $dim->first_child('body')
					->first_child('entry[@key="Last Status Change"]')
					->text  };
			$t->purge;
		},
	},
)->parsefile($file);
print Dumper(\@records);