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;
}