You can find discussion of some different approaches to combinatorial problems here. IIRC, Algorithm::Loops has an example similar to what you're looking for. The example I was thinking of is not in the POD, which was using the OnlyWhen parameter with NestedLoops to only return combinations that satisfied a condition--it's in tye's post in the above thread.