johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @bitPosns = ( 0, 2, 8, 9, 10 );
my $val;
$val        += 2 ** $_ for @bitPosns;
my $vec;
vec( $vec, 0, 16 ) = $val;
say unpack q{B16}, $vec;'
0000011100000101