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