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


my @files = glob('./*.xml');

my %results;

foreach my $xmlname (@files) {
	my $dom = XML::LibXML->load_xml(
		location => $xmlname,
		recover => 1, # no </t_volume> in example
	) or die $!;
	
	foreach my $node ( $dom->findnodes('//info') ) {
		$results{ $node->find('info_name') } = $node->find('it_size');
	}
}

print map { "$_ => $results{$_}\n" } keys %results;