my %seen;
my %newip_res;

for my $ip (@newips) {
   $seen{$ip} = 0;
   $newip_res{$ip} = qr/;drop;[^"]*$ip/;
}

while(<LOG>){
  foreach my $ip (@newip) {
    ++$seen{$ip}, print OUTFILE if $seen{$ip} != 500 && /$newip_res{$ip}/;
  }
}