I believe the second works out like this:

my $prod = 1;
$prod *= $_ foreach @probs;
my $inverse_prod = 1;
$inverse_prod *= $_ foreach map {1-$_} @probs;
return $prod / ($prod + $inverse_prod);
[download]