$ perl -wle '$x=$y=1.2; $x+=1.1; $x-=1.1; $,=$"; print $x, $y, $x == $y' 1.2 1.2