I don't really have experience with bit operations (in general and in Perl), but I remember a Perl function named vec which may help you.