open (F1, "<file1.txt");
open (F2, "<file2.txt");
my $file2;
{
  local $/;
  $file2 = <F2>;
}

while (<F1>) {
  print "Line $. not found.", unless ($file2 =~ /^$_/m);
}
close (F1);
close (F2);