#!/usr/bin/perl

use strict;
use warnings;
use Set::CrossProduct;

my @a1 = qw/grün rot schwarz/;
my @a2 = qw/s m l xl/;
my @a3 = qw/ 100 120 140 160 170 180/;

my @sets = (\@a1, \@a2, \@a3 );

my $set = Set::CrossProduct->new( \@sets );
my $tuples = $set->combinations;

for my $tuple ( @$tuples ){
    print "@$tuple\n";
}