use Tie::Cycle;

tie my $color, 'Tie::Cycle', [qw(red white blue)];
print "$color\n" for 1..10;