for (my $i = 0; $i<30; $i += 0.1) {
	print "$i ";
}

##</code><code>##

use integer;