for my $i (0..20) {
    vec( $bitstring, $offset++, 4 ) = $i ;
}