@many =  glob "{apple,tomato,cherry}={green,yellow,red}";

##</code><code>##

perl -E '$" = ","; my @pos = 'a'..'h'; say for <{@pos}{@{[ 1..@pos ]}}>'