# equivalent to %is_valid = (ABA => 1, SCO => 1, ACC => 1...);
my %is_valid = map { $_ => 1 } qw( ABA SCO ACC PHC GHF ); 

if ($is_valid{$variable}) # Easy to read
{
  ...
}