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

while (...) {
	$class = $flip_class{$class};
	...
}