tunafish:

Howzabout:

use strict;
use warnings;
use Data::Dumper;

my @AoA;

for my $color (qw(red blue)) {
    for my $size (qw(small medium large)) {
        push @AoA, [ map { "$color-$size-$_" } 1 .. 4 ];
    }
}

print Dumper(@AoA);
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.