$test = pram("test");
@array = split /\n+/$test/;