#!/usr/bin/perl

use strict;
use Data::Dumper 'Dumper';

my @files = glob('/abc*/info.xml');
my %hash;
my $info_name;

foreach my $xmlname(@files)
{
    open XML, $xmlname or die "Cannot open $xmlname for reading: $!\n";
    
    while(<XML>){
        if ( /\<info_name\>/i ) {
            ($info_name) = (/<info_name>([^<])/i);
        }
        if ( /\<it_size\>/i ) {
            my ($it_size) = (/<it_size>([^<])/i);
            $hash{$info_name} = $it_size;
        }
    }
}
print Dumper( \%hash );