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;