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; #### foreach my $row (@{$mdarray}) { $mail->datasend("data row: @{$row}"); } #### foreach my $row (@{$mdarray}) { $mail->datasend("item 1: $row->[0]\n"); ... }