c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 2;
 my $y = 2.00000000000000123;
 print qq{$x $y};
 ;;
 if ($x == $y or $x == $y-1 or $x == $y+1) { print 'in exact range'; }
 if ($y-1 <= $x && $x <= $y+1)             { print 'in <= range';    }
 if (abs($y-$x) <= 1)                      { print 'in abs range';   }
"
2 2
in <= range
in abs range