use Net::SMTP;
use Data::Dumper;

$mdarray = [ [0,1,2], [3,4,5] ];
my $mail = Net::SMTP->new("smtp.server");
$mail->from('Some@from.addr');
$mail->to('your@addr.here');
$mail->data();
$mail->datasend("From: Some\@From.addr\n");
$mail->datasend("To: your\@to.addr\n");
$mail->datasend("Subject: Data from web site\n");
$mail->datasend("Date: " . scalar(localtime()) . "\n\n");
$mail->datasend(Dumper($mdarray));
$mail->dataend();
$mail->quit;
[download]

foreach my $row (@{$mdarray}) {
    $mail->datasend("data row: @{$row}");
}
[download]

foreach my $row (@{$mdarray}) {
    $mail->datasend("item 1: $row->[0]\n");
         ...
}
[download]

update: whoops! the remainder of the datasend got put into the from: field. Fixed correctly.