Select Code to Download

$val += 2 ** $_

$val |= 1 << $_

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

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