Help for this page
@many = glob "{apple,tomato,cherry}={green,yellow,red}";
perl -E '$" = ","; my @pos = 'a'..'h'; say for <{@pos}{@{[ 1..@pos ]}} +>'