$multfields .= "$data\t";

.....

print MAIL <<"EOF";
....mail to and from stuff here....

$multfields
EOF