my $i=0;
print($i, "\n");
while ($i < 10){
    my $n = ++$i / 10;
    print($n, "\n");
}