$code |= 1 << $_

That's what vec is for. It also works for indexes higher than the computer's native integers.

vec( $code, 1, $_ ) = 1;