The first reason is because this loop is never entered:

while( $mutrate - 0.01 > $DBL_EPSILON ){
[download]

So the ends without ever executing your print statement.

The reason the loop is never entered is because this condition: $mutrate - 0.01 > $DBL_EPSILON is always false.

You are setting $DBL_EPSILON to $e = 1:

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

Which means that unless $mutrate is greater than 1.1 when you reach the loop; you're never going to enter the loop and thus never going to print anything.

I can only guess what value you actually wanted to set $DBL_EPSILON to, so I won't try.

Also, this: if ($matrix[$i][$j] =~ /[^0.00]/){ isn't doing what you want it to either.