$vec = '';

vec($vec,  3, 4) = 1;  # bits 0 to 3

vec($vec,  7, 4) = 10; # bits 4 to 7

vec($vec, 11, 4) = 3;  # bits 8 to 11

vec($vec, 15, 4) = 15; # bits 12 to 15

# As there are 4 bits per number this can

# be decoded by unpack() as a hex number

print("vec() Has a created a string of nybbles, in hex: ", unpack("h*", $vec), "\n");

​