my $medio=($izquierda+$derecha) >> 1; # divide by 2