bit           111111
offset  7654321054321098
vector  0000000000000000

##</code><code>##

$  perl -Mstrict -Mwarnings -E '
say q{         76543210};
say qq{$_ - }, ord, q{ - }, sprintf q{%08b}, ord for qw{ A B };'
         76543210
A - 65 - 01000001
B - 66 - 01000010
$

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
my $vec;
vec( $vec, 0, 1 ) = 1;
vec( $vec, 6, 1 ) = 1;
say $vec;
say unpack q{B*}, $vec;
vec( $vec, 14, 1 ) = 1;
vec( $vec,  9, 1 ) = 1;
say $vec;
say unpack q{B*}, $vec;'
A
01000001
AB
0100000101000010
$