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

sub print_address
{
   print_as_lines @_:
}

print_address( unique_network($servers) );