Not as 'nice' as either of the above, but simple, quick and sorted - a strolly one-or-two-over-par, and could probably lose a couple of lines somewhere, I think :)

my @arr = my @results = ('#','*',0..9);
print join("\n",@results); # 1st lot
foreach (0..10) {
    my @results2;
    foreach my $m (@results) {
        push @results2, map {$m.$_} @arr;
    }
    @results = @results2;
    print join("\n",@results); # subsequent
}
[download]

Cheers,
Ben.

update...or just be completely blown away by Hugo++. Top, Sir!