@mail beinhaltet zeilenweise die Mail incl. Header
foreach my $line (@mail)
{
 if ($line=~/^To:/)
 {
   ($to) = $line =~ m/^To: (.*)/si;
   push @adressen, split(/,/, $to ); # Um sie bei den Kommata abzuteilen 
   #und ins Array $adressen zu sperren;)
  $File::Log::log->msg(4, "To Adressen: $to\n");
 }
}