my @results;
my $value = 1.5;
my $max = 9.4;
my $increment = 0.1; 
push @results, $value while ( ($value += $increment) && $value < $max );