sub bsearch {
    my( $indices_hv, $pattern ) = @_