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