print "$_\n" for glob +('{'. join( ',', @letters).'}') x $len;