print $OUT "@row\n";

##</code><code>##

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