$-=<>+1;<>;$/=$";print~~grep$--=$_,sort{$a-$b}<>