....
}
    $xmlhash{$info_name} = $it_size;
    #print "$info_name : $it_size\n";
    close(XML);
}
foreach $k (sort keys %xmlhash){
    print "$key: $xmlhash{$key}\n";
}