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

##</code><code>##

$twopi = 2 * $pi;