sub binary_array_to_uint {
    my $bin = join '', @_;
    return oct "0b$bin";
}