use Socket;
...
  my $addr = $server->{LanIP};
  my $mask = my $mask = $server->{Netmask};
  my $netaddr = inet_ntoa(inet_aton($mask) & inet_aton($addr));
  push(@array, $netaddr) unless $seen{$netaddr}++;