die "IPs missing" unless keys %hashIPs == 256;
my $base = each( %hashIPs) =~ s[(\.\d+$)][];
exists $hashIPs{ $base . $_ } or die "Missing IP $base.$_" for 0 .. 255;