Select Code to Download

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

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