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