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