use XML::Simple;
use strict;
use Data::Dumper;
my $config = XMLin("testFile.xml",forcearray => ['person','email']);
my @persons = $config->{person};
print "Size:".@persons;