use Tie::Cycle; tie my $color, 'Tie::Cycle', [qw(red green blue)]; for my $row (@rows){ print qq{$row\n}; }