my $odd;
while (...) {
   my $class = ('odd','even')[$odd ^= 1];
   ...
}