my @cycle = ('#fff', '#fff', '#fff', '#ccc', '#ccc'); my $i = 0; # ... $foo .= $cycle[$i++ % @cycle]; # ...