use XML::Rules;
my $parser = XML::Rules->new(
	rules => {
		process => sub { '@list' => $_[1]->{name}},
		_default => sub { $_[0] => $_[1]->{list}},
		config => 'pass no content',
	}
);
my $data = $parser->parse(\*DATA);
#use Data::Dumper;
#print Dumper($data);

foreach my $host (sort keys %$data) {
	foreach my $proc (@{$data->{$host}}) {
		print "$host runs $proc\n";
	}
}

__DATA__
<?xml version="1.0" encoding="utf-8"?>
<config>
...