for ( '"KOTB"', '"KBBA"', '"KBBC"', '"KBBM"', '"KBBT"' ) {
    if ( $fields[6] eq $_ ) {
        # do something
    }
}