I have three lists of words. I would like to generate a single list of all the combinations of words from the three lists.

List 1: red green blue

List 2: one two

List 3: apple banana

The final list would like like so:

red one apple
red two apple
red one banana
red two banana
... and so on

Ideally I'd like to pass in three arrays and the routine return one array.

I have done a simple loop like so:

foreach $word1 (@list1){
    foreach $word2 (@list2){
        foreach $word3 (@list3){
            print "$word1 $word2 $word3\n";
            }
        }
    }

However, this doesn't work if there's nothing in the second or third list (I may only want to iterate between one, two or three lists at a time - in other words, if I only supply two lists it should iterate between those two lists).