foreach my $prime_id ( @id_hits ) {
        $line = shift @log until $line =~ /$prime_id/;