Help for this page
print "$_\n" for glob "{@{[ join ',', @letters ]}}" x $len;
join ',', @letters
{A,B,C,D,E,F}{A,B,C,D,E,F}{A,B,C,D,E,F}{A,B,C,D,E,F}
print "$_\n" for glob (('{'. join( ',', @letters).'}') x $len);
print "$_\n" for glob +('{'. join( ',', @letters).'}') x $len;