$val += 2 ** $_

##</code><code>##

$val |= 1 << $_

##</code><code>##

my $vec;
vec( $vec, 0, 16 ) = $val;

##</code><code>##

my $vec = pack 'n', $val;