use XML::Simple qw( :strict XMLin );

local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';

my $stations = XMLin( \*DATA, ForceArray => 1, KeyAttr => [] );

for my $station_name (keys %$stations) {
   say $station_name;
   my $station = $stations->{$station_name}[0];
   for my $ip (@{ $station->{ips} // [] }) {
      say "   $ip";
   }
}

##</code><code>##

use XML::LibXML qw( );

my $root = XML::LibXML->load_xml( IO => \*DATA )->documentElement;

for my $station ($root->findnodes('*')) {
   say $station->getName;
   for my $ip ($station->findnodes('ip')) {
      say "   ".$ip->textContent;
   }
}