#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
my $xml1 =<<"eof";
10.0.0.101
10.0.1.101
10.0.0.102
10.0.0.103
10.0.1.103
eof
my $xml2 =<<"eof";
10.0.0.101
10.0.1.101
10.0.0.102
10.0.0.103
10.0.1.103
eof
print "Structure1:\n".Dumper(XMLin($xml1,ForceArray => 1));
print "Structure2:\n".Dumper(XMLin($xml2,ForceArray => 1));