use List::Util qw( any );
if (any {$variable eq $_} qw( ABA SCO ACC PHC GHF ))