my $ref = XMLin($xml_file, ForceArray => ["server"]);
use Data::Dumper;
print Dumper $ref;