sub print_as_lines
{
  map { print "$_\n" } @_;
}

##</code><code>##

my $lanip = $server->{LanIP}; # no change on block entry
# oops, this will format for output before processing
$lanip .= "\n" unless $lanip =~ /\n$/; # no change if present
#oops, did not validate input

##</code><code>##

<lanIP>

192.168.42.7

</lanIP>

##</code><code>##

my $lanip = $server->{LanIP};
die "Value Error: not dotted quad notation->($lanip)" unless $lanip =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
my $lanip = $1; # now this house is clean

##</code><code>##

sub unique_network 
{
   ... for each
   return @array
}

sub print_address
{
   print_as_lines @_:
}

print_address( unique_network($servers) );