in reply to fast bit twiddling

bit 1 = bit 5 = bit -1

In Section Seekers of Perl Wisdom