web dns miami nfs quake hell ##

##

use XML::Simple;
use Data::Dumper;
# create object
my $xml = new XML::Simple ();
# read XML file
my $data = $xml->XMLin("/tmp/hosts.xml");
print Dumper($data);

##

##

$VAR1 = {
          'host' => {
                    'haffa' => {
                               'function' => [
                                             'nfs',
                                             'quake'
                                           ],
                               'location' => 'hell'
                             },
                    'jimmy' => {
                               'function' => [
                                             'web',
                                             'dns'
                                           ],
                               'location' => 'miami'
                             }
                  }
        };