Xperl5 binary search

binary-search exercise for Perl 5