if (abs($x - $y) <= $tolerance) {
  print "$x and $y are 'equal'";
}