my @classes = qw( odd even );
while (...) {
   push @classes, my $class = shift @classes;
   ...
}