foreach my $row (@{$array1[$msmtable]}){
     print OUT "$array1[$msmtable][$row][$x],";
    }

##</code><code>##

>perl -E"say 0+[];"
6994484

##</code><code>##

    foreach my $row (@{$array1[$msmtable]}){
     print OUT "$row->[$x],";
    }