#!/usr/bin/perl

# use module
use strict;
use warnings;

use XML::Simple;
use Data::Dumper;


# create object
my $xml = new XML::Simple (KeyAttr=>[], ForceArray => ['function']);
#                                            IMPORTANT ^^^^^^^^^^

# read XML file
my $data = $xml->XMLin("hosts.xml");

my $e = $data->{'host'};
print "Name: ", $e->{name}, "\n";

# IMPORTANT: Use a loop to process all the possible
# functions, instead of just one.
foreach my $fct ( @{$e->{'function'}} ){
    print "Function: ", $fct, "\n";
}

##</code><code>##


<allHosts>
   <host name="jimmy">
      <function>web</function>
      <function>dns</function>
      <location>miami</location>
   </host>
</allHosts>