#!/usr/bin/perl
use strict;
use warnings;

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

my %results;

foreach my $xmlname (@files) {
	open my $fh, '<', $xmlname or die "$xmlname: $!";
	
	while ( my $line = <$fh> ) {
		my ($name) = $line =~ /\<info_name\>([^<]+)\<\/info_name\>/
			or next;
		while ( my $l = <$fh> ) {
			$l =~ /\<it_size\>([^<]+)\<\/it_size\>/ or next;
			$results{$name} = $1;
			last;
		}
	}
}

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