for (my $r = 1; $r <= 100; $r += 2) {
    ...
}