#!/usr/bin/perl

use strict;
use warnings;
use Math::Combinatorics;

my(@aoa) = ( 
    qw(A B C),
    qw(1 2 3 4),
    qw(yellow blue green),
    qw(tiny small medium large gigantic),
);

my @n = combine(2, @aoa);
print  "[",  join(", ", @$_), "]\n" for @n;