my @recipients;
foreach my $line (@mail) {
   next unless $line =~ /^To:\s*/;
   my $to = $';
   $File::Log::log->msg(4, "To Adressen: $to\n");
   push @recipients, [ split(/\s*,\s*/, $to) ];
}