#!/usr/bin/perl
use strict;
use warnings;
use Algorithm::Combinatorics 'variations_with_repetition';
use List::MoreUtils 'pairwise';

my @a = 1 .. 3;
my @b = qw/a b/;

my @c;

my $iter = variations_with_repetition (\@b, scalar @a);

while (my $tuple = $iter->next) {
	no warnings 'once'; # silence warnings about $a $b only used once
	my @temp = pairwise { [$a,$b] } @a, @$tuple;
	push @c, \@temp;
}

use Data::Dump; dd \@c;