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