Select Code to Download

my @colLength;
sub calcMaxColumn
...
        }
    }
}

my $strLen = 0;
    for (my $x = 0; $x <= $#AoA; $x++)
...
        }
        print OUTDATA "\n";
    }