I wrote the Set::CrossProduct module to do this sort of thing. It doesn't do anything recursive, and you can get back the entire set of tuples all at once or one tuple at a time. Getting them one at a time is really handy when you end up generating thousands of tuples. :)