in reply to Combinations with variable length

  DB<19> $dyn = 3

  DB<20> $gen = join " ", ("{1,2}") x $dyn

  DB<21> say for <"$gen">
1 1 1
1 1 2
1 2 1
1 2 2
2 1 1
2 1 2
2 2 1
2 2 2

[download]

HTH! :)

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

In Section Seekers of Perl Wisdom