Select Code to Download

for (my $j=0; $j <= @grammatches; $j++) { ## Could be normal $j++ if u
+se another variable instead of @matches for both
...
    for (my $l=0; $l <= @headmatches; $l++) {
...
                for (my $m=0; $m <= @sentmatches; $m++) {

for my $j ( 0 .. $#grammatches ) { ## Could be normal $j++ if use anot
+her variable instead of @matches for both
...
    for my $l ( 0 .. $#headmatches ) {
...
                for my $m ( 0 .. $#sentmatches ) {