sub bitFields{
    unpack 'L*', pack'(b32)*', map scalar( reverse),
        unpack $_[1], reverse unpack 'b32', pack 'L', $_[0];
}