$total *= lower($sizes->[$_], $sampled[$_]) / fact($sampled[$_])