use warnings;
use strict;

my $range = 0.1;
my $i     = 0;
while ( $i < 1 ) {
    print $i. "\n";
    $i = sprintf '%.1f', $i + $range;
}

__END__

0
0.1
0.2
0.3
0.4
0.5
0.6
0.7
0.8
0.9