my @tags = split /\t/, $line; my @Definition=("NN", "NNS"); next unless (grep {$_ eq $tags[ 1 ]} @Definition); #### next unless grep($_ =~ /^$tags[1]/, @Definition);