my $string="";
for(@namen){
  $string&&.="\n--\n"; # $string.="\n--\n" if length $string
  $string .= $_;
}