use Tie::Cycle;

my @list = (("#cccccc") x 10, ("#xffffff")x10);
tie my $cycle, 'Tie::Cycle', \@list;