$b[2-($a[0]cmp$_)].=$_ for@a=<>=~/./g;print@b