Borrowed from merlyn's Permutations and combinations

print  join ",", @$_ for combinations('#','*',0..9);
sub combinations {
 return [] unless @_;
 my $first = shift;
 my @rest = combinations(@_);
 return @rest, map { [$first, @$_] } @rest;
}
[download]

or does it need to be sorted?

---

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/