$body .= param($_)."\n" for @param;

##</code><code>##

$body .= join("", "$_ : ", param($_), "\n") for @param;

##</code><code>##

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