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";
}

##</code><code>##

use v6;
.say for cross (1, 2, 3), <a b c>, <I II III>