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