$\=<>*2-2;$_<$-or$-=s/.* //r,$\--for sort{$a=~s/.* //r<=>$b=~s///r}<>;print