use Data::Dumper;
use XML::Simple qw(:strict);
my $ref = XMLin(
	'compute_sys.xml',
	ForceArray	=> 1,
	KeyAttr		=> [],
);
print Dumper($ref);