use strict;
use warnings;

for (my $count = 0.0; $count < 0.9; $count += 0.1) {
    print "$count\n";
}

print "End!\n";