Select Code to Download

my @arrayC;
while(defined($textblock) = <>) {
...
    }
    push @arrayC, \@arrayA;
}

    push @arrayC, [ $textblock, \@arrayA ];