use warnings; use strict; my $delta = 0.1; my $v = 0; my $i = 0; while( $v < 9 ) { $v = $i * $delta; print $v, $/; ++$i; }