printf@a=sort$_,$a[1]for<>=~/./g,z