I'm not sure what the problem is, but I'll add a couple of ways to interpolate an array without spaces...

print "<textarea>", @text, "</textarea>\n";
# (unless you've redefined $,)
[download]

...or...

{
    local $";
    print "<textarea>@text</textarea>\n";
}
[download]