# Part of the dependency_checks subroutine foreach my $pronoun ( @stopListNoun ) { if ( ( lc $pronoun eq lc $argument1 ) || ( lc $pronoun eq lc $argument2 ) ) { return; } } #Make sure searchkey is 1st arg: push ( @matches, $chapternumber, $sentencenumber, $sentence, $grammar_relation, $argument2, $argument1 ) if ( $argument2 =~ /$verbform/i ); # USED TO BE 'eq', but that # prevented protective from showing push ( @matches, $chapternumber, $sentencenumber, $sentence, $grammar_relation, $argument1, $argument2 ) if ( $argument1 =~ /$verbform/i ); return \@matches; # Called by: $matches = &dependency_checks( $lines[$l], $verbform, $chapternumber, $sentencenumber, $sentence ); push @all_matches, $matches if ( $matches );