I am not sure how using output list separator ($") is going to affect the rest of your program That is why i've put it local (assuming u r using a subroutine).

It is better to limit the scope of the change using a bare code BLOCK

{
    local $" = q{};
    print qq{@array};
}
[download]

or a do BLOCK

print do{ local $" = q{}; qq{@array} };
[download]

I hope this is useful.

Cheers,

JohnGG