No. You could use any from List::MoreUtils or something like this:

if(grep{ /$fields[6]/  ('"KOTB"', '"KBBA"','"KBBC"' , '"KBBM"' , '"KBB
+T"')}) {
     &do_this;
else {
     &do_something_else;
     }
[download]

Note:  example code only; not tested in any way, manner, or form.