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";
   }
}