my $x;

for ($x=1; int($x) <= 2; $x += 0.1) {
  print "$x\n";
}

print "Stop: x=$x\n";
print "No, x is not 2.\n" if $x != 2;

##</code><code>##

1
1.1
1.2
1.3
1.4
1.5
1.6
1.7
1.8
1.9
2
2.1
2.2
2.3
2.4
2.5
2.6
2.7
2.8
2.9
Stop: x=3
No, x is not 2.