my $x = 0;
for( 1..100 ) {
    $x += 0.01;
    # ...
}
print $x, $/;