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