Select Code to Download

$VAR1 = [
          [
...
...

my $msm = 1;
foreach my $msmtable (@array1){
...
}

print OUT "$array1[$msmtable][$row][$x],";