You can always simply join every element of the array to produce a large text string and save it into a scalar variable. So, the code might look as follows

$smtp = Net::SMTP->new('Mail.Server');
$smtp->mail( 'user.com' );
$smtp->to($emailid);      
$smtp->data();        # Start the mail
 
$smtp->datasend("To: Mickey Mouse\n");
$smtp->datasend("From: John Doe\n");
$smtp->datasend("\n");
 
my $log_data = "Log File Contents:\n" . join("\n", @LogFile);

$smtp->datasend($log_data);
$smtp->dataend();             # Finish sending the mail
$smtp->quit;                  # Close the SMTP connection
[download]

_____________________

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}
[download]