my %seen;
 
while(<LOG>){
  foreach my $i (@newips){
    print OUTFILE if /\;drop;[^"]*$i/ && ++$seen{$i} <= 500;
  }
}