knoppix@Microknoppix:~$ perl -Mstrict -MData::Dumper -we '
> my @arr;
> my $idx = -1;
> push @{ $arr [ $_->[ 0 ] ] }, $_->[ 1 ] for
>    map { $idx ++; map { [ $idx, $_ ] } glob qq{$_-{1,2,3,4}} }
>       glob q{{red,blue}-{small,medium,large}};
> print Data::Dumper->Dumpxs( [ \ @arr ], [ qw{ *arr } ] );'
...