use List::Util qw(first);

open (LOG, ">>$LogFileName")||die("Can not open Log file\n");

my ($FileProcessed) = first{$_ eq $FileName}<LOG>;

close(LOG);

if ($FileProcessed){
  print("$FileName Found in Log file\n");
}else{
  print("$FileName NOT Found in Log file\n");
}