sub unpack_count_ref { 
    my $count = unpack("%32b*", $_[ 0 ] );
    return $count;
}