use 5.010;
use Set::Scalar qw();
my $iter = Set::Scalar->cartesian_product_iterator(
    map { Set::Scalar->new(@$_) }
        [1, 2, 3],
        [qw/a b c/],
        [qw/I II III/],
);
while (my @m = $iter->()) {
    say "@m";
}