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

for my $i (0..9) {
	for my $j (0..9) {
		for my $k (0..9) {
			for my $l (0..9) {
				for my $m (0..9) {
					for my $n (0..9) {
						for my $o (0..9) {
							print $i,$j,$k,$l,$m,$n,$o,"\n";
							}
						}
					}
				}
			}
		}
	}


##</code><code>##


#!/usr/bin/perl -w
use strict;
use Algorithm::Loops qw( NestedLoops );

my @symbol = qw(0 1 2 3 4 5 6 7 8 9);

my @position;
for my $deepness (0..6) {
	push @position, [@symbol];
	}

my @list;
my $iter = NestedLoops(\@position);
	while (@list = $iter->()) {
		print "@list\n";
	}


##</code><code>##


my @symbol=qw(0 1 2 3 4 5 6 7 8 9);
my$deepness=7;

#? Repeat the foreach to specified deepness ?