Select Code to Download

@$aref = @$aref[++$mid..$#$aref];
...
@$aref = @$aref[0..--$mid];

sub binary_search {
    my ($aref, $find) = @_;
...
        binary_search([ @$aref[0..--$mid] ], $find);
    }
}

sub binary_search {
    my ($aref, $find) = @_;
...
        , $find
    );
}