Algorithm::Loops::NestedLoops(). That will also give you more keywords in case you want to search for any of the several threads here at PerlMonks that discuss how the code in the module or similar code can be written.