my $DBL_EPSILON = $e =1; $e /= 2 while $e /2 +1 > 1;