if ($fields[6] ~~ qw("KOTB" "KBBA" "KBBC" "KBBM" "KBBT")){ 
   ...
}

##</code><code>##

if ($fields[6] =~ m/\A"(?:KOTB|KBB[ACMT])"\z/){
    ....
}