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