change your print statement to

print $OUT "@row\n";
[download]

OR set the default "output field separator" explicitly.

You may overwrite it like so

$, = ',';
print $OUT @row, "\n";
[download]