sub fp_equal {
        return abs($_[0] - $_[1]) < $_[2];
    }

    fp_equal($x, $y, 0.001);