my $one = 0;
while ($one <= 100_000) {
    print $one += 500, "\n";
}