$-=6001;print+($--=$_|0)-1,$/for glob<>