Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        binary_search($aref, $find);
    }
}

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

@$aref = @$aref[++$mid..-1];