"my" variable $lo masks earlier declaration in same scope at foo.pl line 14.
"my" variable $hi masks earlier declaration in same scope at foo.pl line 14.
"my" variable @array masks earlier declaration in same scope at foo.pl line 21.
"my" variable $try masks earlier declaration in same scope at foo.pl line 21.
"my" variable $word masks earlier declaration in same scope at foo.pl line 21.
"my" variable @a masks earlier declaration in same scope at foo.pl line 33.
syntax error at foo.pl line 12, near "<= :"
syntax error at foo.pl line 30, near "}"
Execution of foo.pl aborted due to compilation errors.

##</code><code>##

"my" variable @a masks earlier declaration in same scope at foo.pl line 32.

##</code><code>##

my @a = qw(format type ascii hex pos len binary search perl unix eof array word);
@a = sort @a;
my $w = "len";
say "@a";
my $result;
open STDOUT,'>','/dev/null';
for (1..100000) {
	$result=BinSearch(\@a, \$w);
	say $result;
	($result)=grep { $a[$_] eq $w } 0..$#a;
	say $result;
}

##</code><code>##

my @a = ('00junk') x 10000;
push @a,qw(format type ascii hex pos len binary search perl unix eof array word);
@a = sort @a;
my $w = "len";
say "@a";
my $result;
open STDOUT,'>','/dev/null';
for (1..1000) {
	$result=BinSearch(\@a, \$w);
	say $result;
	($result)=grep { $a[$_] eq $w } 0..$#a;
	say $result;
}