A similar question was asked here earlier this week, and I suggested my module Set::CrossProduct. It's not the only module solution though.