my %primary;
BEGIN { @primary{qw( red blue green )}= (1)x3; }
...
    if(  $primary{$color}  ) {
        ....