my $rec;foreach(@test){$rec.=$_."\n";}

##</code><code>##

my $rec = join "\n", @test;