$lnpam[$i][$j] = $matrix[$i][$j]  ? log( $matrix[$i][$j]) : -1000;