until ($one == 100001) {
   $one++;
   print "$one\n" if ($one % 500 == 0);
}