Select Code to Download

my ($class, %flip_class) = qw(odd odd even even odd);

...
    $class = $flip_class{$class};
    ...
}

my ($class, %flip_class) = qw(odd even)[0,1,0,0,1];

...
    $class = $flip_class{$class};
    ...
}

my $class = 'odd';

...
    ($class) = grep {!/$class/} qw(odd even);
    ...
}