#!/usr/local/bin/perl

$count = 1;
$number = 0.1;
until ($count == 10) {
        print ("$number\n");
        $number = $number + 0.1;
        $count = $count + 1;
}
