$@[0]=~s/\pL//?print$&:shift@@while@@=sort@@,map s/$/{/r,<>