while( $mutrate - 0.01 > $DBL_EPSILON ){

##</code><code>##

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