$ncount = grep { ($qbase[$_] =~ /n/i && $sbase[$_] !~ /n/i) || ($qbase[$_] !~ /n/i && $sbase[$_] =~ /n/i) } 1..$#qbase;