Select Code to Download

foreach @line (@data) {
                for my $tree (0..17) {
...
        }
}
print "Test: @{$mdarray[1][1][1]}\n";