C:\test>junk44
#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

my $xml = XMLin( \*DATA, ForceArray => 1 );
pp $xml;

__DATA__
<servers>
         <station18>
                 <ip>10.0.0.101</ip>
                 <ip>10.0.1.101</ip>
                 <ip>10.0.0.102</ip>
                 <ip>10.0.0.103</ip>
                 <ip>10.0.1.103</ip>
         </station18>
         <station19>
                 <ip>10.0.0.111</ip>
                 <ip>10.0.1.111</ip>
                 <ip>10.0.0.112</ip>
                 <ip>10.0.0.113</ip>
                 <ip>10.0.1.113</ip>
         </station19>
         <station17>
                 <ip>10.0.0.121</ip>
         </station17>
 </servers>

##</code><code>##

{
  station17 => [{ ip => ["10.0.0.121"] }],
  station18 => [
                 {
                   ip => [
                           "10.0.0.101",
                           "10.0.1.101",
                           "10.0.0.102",
                           "10.0.0.103",
                           "10.0.1.103",
                         ],
                 },
               ],
  station19 => [
                 {
                   ip => [
                           "10.0.0.111",
                           "10.0.1.111",
                           "10.0.0.112",
                           "10.0.0.113",
                           "10.0.1.113",
                         ],
                 },
               ],
}