my $text = join "\t", @{$array};
my $msg = <<"END";
stuff
$text
END