@test = pram("test");
foreach (@test) {
 s/(\n)*/,/;
}