#!/usr/bin/env perl

my @s = ();

sub p {
    my ($n) = @_;
    if ($n > 0) {
        for (my $i = 0; $i < 10; $i++) {
            push @s, $i;
            p($n - 1);
            pop @s
        }
    } else {
        print(join('', @s), "\n");
    }
}


p(1, @s);
print("------------------------------\n");
p(2, @s);
print("------------------------------\n");
p(5, @s);

1;