Select Code to Download

"my" variable $lo masks earlier declaration in same scope at foo.pl li
+ne 14.
"my" variable $hi masks earlier declaration in same scope at foo.pl li
+ne 14.
...
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.

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

my @a = qw(format type ascii hex pos len binary search perl unix eof a
+rray word);
@a = sort @a;
...
    ($result)=grep { $a[$_] eq $w } 0..$#a;
    say $result;
}

my @a = ('00junk') x 10000;
push @a,qw(format type ascii hex pos len binary search perl unix eof a
+rray word);
...
    ($result)=grep { $a[$_] eq $w } 0..$#a;
    say $result;
}