perl Bit-Vector