Looking at your code more carefully,

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

I see that $row is a reference to an array, yet you're using that reference as an index. There's the large number we were looking for.

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

You want:

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