If you just want the tab chars:

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

See perlvar for details.

If you want to iterate over it:

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