for $row ( @out ) {
    print join( "\t", @$row), "\n";
}

##</code><code>##

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