pp X {"a".."d"};
pp X {"a".."b"} X {1..2} X {'x','y'};

my $iter = X {"a","b"} X {1..2} X {'x','y'};

while ( my ($aref)= $iter->() ) {
  pp $aref;
}
__DATA__
(["a"], ["b"], ["c"], ["d"])
(
  ["a", 1, "x"],
  ["a", 1, "y"],
  ["a", 2, "x"],
  ["a", 2, "y"],
  ["b", 1, "x"],
  ["b", 1, "y"],
  ["b", 2, "x"],
  ["b", 2, "y"],
)
["a", 1, "x"]
["a", 1, "y"]
["a", 2, "x"]
["a", 2, "y"]
["b", 1, "x"]
["b", 1, "y"]
["b", 2, "x"]
["b", 2, "y"]