my $class = 'even';
while (...) {
    ($class) = grep $_ ne $class, qw( odd even );
    ...
}