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

##</code><code>##

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