$lnpam[$i][$j] = log $matrix[$i][$j] if $matrix[$i][$j];