$, = "\t"; # Output field separator
for $row ( @out ) {
    print @$row, "\n";
}