ellem,
I would use the modulus (%) operator.

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

Cheers - L~R