use Mail::Mailer;

my @param = qw(
   Title Name Position School Address
   Suburb State PCode Email Tel Fax
   Att1 Att2 Att3 Att4 Att5
   Att6 Att7 Att8 Att9 Comments
);

my $mailer = Mail::Mailer->new;
$mailer->open({
   To      => 'foo@bar.com',
   From    => 'baz@qux.com',
   Subject => 'results of submit',
});

my $body;
$body .= "$in{$_}\n" for @param;
print $mailer $body;

$mailer->close;