(1) foreach my $update (@updateloc1){
(2)    for my $lin (@texlines){
(3)        if ($lin =~ /$update/g){