use Math::FixedPrecision;
for (my $i = Math::FixedPrecision->new(0); $i <= 1; $i += 0.01) {
    print $i, "\t", Math::FixedPrecision->new($i + 0.01, 0), "\n";
}