use strict;
...
sub CheckTempDB
{
# Templist öffnen und einlesen
   open(TL, "< $templist") or &error("Unable to open the templist file for reading");
   if($flock eq "y") {flock TL, 2;}
   my @templist = <TL>;
   close(TL);

   # Templist sortieren und auf Strings rausfiltern
   foreach (@templist)
   {
      s/\r?\n//g; #Entfehrnt den verwi... Zeilenumbruch!
      my ($LISTOptMail, $LISTOptID) = split (/\|/, $_);
      {
         if(($LISTOptMail eq $LINKOptMail) && ($LISTOptID eq  $LINKOptID)) {$OptIDStatus = "ok";}
         else {$OptIDStatus = 'error';}
     }
   }
}