Так у вас закомментарен кусок посылающий само тело:
    $smtp->datasend("\n");
    #$smtp->datasend(@message);
    $smtp->dataend(); # Finish sending the mail

Ну и массив надо бы пребразовать в строку:

   $smtp->datasend("\n");
    $smtp->datasend(join("\n", @message));
    $smtp->dataend(); # Finish sending the mail