Sería:
Código PHP:
if (open(my $handle,'fichero.txt')){
#Negar modificación
flock $handle, 1;
#Abrimos y cargamos a memoria
open (my $parse, 'acahagoelgrep.txt') or die "$!\n";
#Negar modificación
flock $parse, 1;
#Todo a memoria
my @todo = <$parse>;
#cerramos
close $parse;
#Declaro contexto
my $last;
while (<$handle>){
#perl sabe que sólo necesita el primer índice, por lo que lo extrae y se detiene, optimizando el tiempo de ejecución.
$_ = (split(';'))[0];
#Si anterior es igual a actual, continuo, case sensitive
next if $last && $last eq $_;
#Actualizo variable
$last = $_;
if (scalar grep(/$last/,@todo)){
print "Lo encontre!!\n";
}
}
close $handle;
}