my @dis_dic;
open(my $in1, "<", "$dis_verbs")
  or die "error reading $dis_verbs. $!";
chomp(@dis_dic = <$in1>);
close($in1);

##</code><code>##

elsif ( index($f3_line, @apr_dic && @dis_dic) != -1 ) {