Select Code to Download

#!/usr/bin/perl -w
use strict;
...
            }
        }
    }

for my $deep0 (0..$dimention-1) {
    for my $deep1 (0..$dimention-1) {
        for my $deep2 (0..$dimention-1) {
...
for my $row (0..$#AoA) {
    print "@{$AoA[$row]}\n";
    }