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

my $deeepness = 5;

my @nDeep = ();

my $dimention = 5;

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) {
					$nDeep[$deep0][$deep1][$deep2][$deep3][$deep4] = 0;
					}
				}
			}
		}
	}