my $medio=($izquierda+$derecha)<<2;

##</code><code>##

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