I can't get to CPAN at the moment to check for modules that handle bits efficiently, but this node has some good advice on the topic: Handling bits in Perl