my $x = 1.1 - 1.0; 
print(qq[$x <= 0.1 ? ] . ($x <= 0.1 ? q[yes] : q[no] ));

##</code><code>##

my $x = 1.0 - 0.9; 
print(qq[$x <= 0.1 ? ] . ($x <= 0.1 ? q[yes] : q[no] ));

##</code><code>##

~$: perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-gnu-thread-multi