$\+=join(_,sort glob)eq akai_marui_okii_umai for<>;print