my $i = 0.1;
my $v = 0 - $i;
while ( $v < 9 ) {
    $v += $i;
    print $v, $/;
}