perl快速得到數字在數組中的排序

某些狀況下，有一個已經排好序的數組，若是要得到一個數字在這個數組中的順序，用遍歷的方法會比較慢，以下是一個快速獲取位置的函數，會返回:在這個數組中，有多少個值比給定的值要小。

#! /usr/bin/env perl
use strict;
use warnings;

my @array=(1,2,2,3,4,5,6,7,8,9,10);
my $value=shift;
@array=sort{$a<=>$b} @array;

my $percent=&findLess($value,@array);
print "$percent\n";

sub findLess{
    my ($value,@array)=@_;
    my $result=-1;
    my $array_length=@array;
    my $left=0;
    my $right=$array_length-1;
    while(1){
        if($value<=$array[$left]){
            $result=$left;
        }
        elsif($value>$array[$right]){
            $result=$right+1;
        }
        elsif($right-$left<=1){
            if($value>$array[$left]){
                $result=$left+1;
            }
            else{
                $result=$left;
            }
        }
        else{
            my $mid=int(($left+$right)/2);
            # print "mid\t$mid\n";
            if($value<=$array[$mid]){
                $right=$mid;
            }
            else{
                $left=$mid;
            }
            # print "$left\t$right\n";
        }
        last if($result>=0);
    }
    # print "$result\n";
    my $percent=($result)/$array_length;
    return($percent);
}