my $message = MIME::Lite->new(
              From => 'skript.pl',
              To => $recipient,
              Subject => "Meine Subject-Zeile",
              Data => $arrayref,
      );