print "$_\n" for glob "{@{[ join ',', @letters ]}}" x $len;