$ 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
$