map$a[y///c].=$_,sort<>;print@a