use strict;
use warnings;
use XML::Simple;

my $str = <<XML;
<config>
    <server>
        <name>server1</name>
        <file>
            <filename>/etc/named.conf</filename>
            <filename>/etc/nsswitch.conf</filename>
        </file>
    </server>
    <server>
        <name>server2</name>
        <file>
            <filename>/etc/named.conf</filename>
            <filename>/etc/nsswitch.conf</filename>
            <filename>/etc/hosts</filename>
        </file>
    </server>
</config>
XML

my $xml = new XML::Simple (KeyAttr=>[]);
my $data = $xml->XMLin ($str);

foreach my $machine (@{$data->{server}}) {
    my $name = $machine->{name};
    print "$name\n";
    print "\t@{$machine->{file}{filename}}\n";
}

##</code><code>##

server1
	/etc/named.conf /etc/nsswitch.conf
server2
	/etc/named.conf /etc/nsswitch.conf /etc/hosts