DB<41> say join "\n", grep { sprintf ("%03d",$_) != ("".($_/1000)*1000) } 0..99999

 DB<42>