use Tie::Cycle qw( );

tie my $class, 'Tie::Cycle', [ qw( odd even ) ];
while (...) {
   ...
}