#!/usr/bin/perl 
use strict;
use warnings;
use Math::BigFloat;


my $base = Math::BigFloat->new(q{895.3});
my $incr = Math::BigFloat->new(q{0.01});

while ( $base->bcmp(900) ) { 
    print $base->bstr(), "\n";
    $base->badd($incr);
}