Help for this page
foreach my $row (@{$array1[$msmtable]}){ print OUT "$array1[$msmtable][$row][$x],"; }
>perl -E"say 0+[];" 6994484
foreach my $row (@{$array1[$msmtable]}){ print OUT "$row->[$x],"; }