$y = $cd_lookup{$codon}*$mfactor;

            $y = Math::BigInt->new( $y );

            $z = $y->bnok($x);