for my $deep0 (0..$dimention-1) {
	for my $deep1 (0..$dimention-1) {
		for my $deep2 (0..$dimention-1) {
			for my $deep3 (0..$dimention-1) {
				for my $deep4 (0..$dimention-1) {
					push @{$AoA[$deep0]}, $nDeep[$deep0][$deep1][$deep2][$deep3][$deep4];
					}
				}
			}
		}
	}

for my $row (0..$#AoA) {
	print "@{$AoA[$row]}\n";
	}