...
print "\$mutrate = $mutrate\n";
while ($mutrate-0.01 > $DBL_EPSILON){
...