Select Code to Download

for my $row (@out){
    local $" = "\t";
    print "@$row\n";
}

for my $row (@out){
    for my $col (@$row){ 
...
    }
    print "\n";
}