My module match::simple provides a match function which can be used for this purpose. It's pretty fast, but even faster if you install match::simple::XS.

use match::simple qw(match);

if (match $a => [qw{ ABA SCO ACC PHC GHF }]) {
   ...;
}
[download]