my $start = bsearch( \@indices, $pattern );

##</code><code>##

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

##</code><code>##

    while( 1 < length $str ) {