my @alternatives = qw(ABA SCO ACC PHC GHF);

my $target = 'ABA';

if (grep {$target eq $_} @alternatives) {

    print "$target is in (@alternatives)\n";

}
else {

    print "$target is not in (@alternatives)\n";

}