for my $p (@param) {
   my @v = param( $p );
   $body .= join( "", map { "$p : $_\n" } @v );
}