Select Code to Download

# In the configuration section...
my @Toggles = ('on', 'off');

# In some loop in the code...
$Toggles[$flip = !$flip]

my @BGColors = ('#dddddd', '#ffffff');

...
    </tr>
  };
}

# To cycle through any number of elements...
my @Cheers = ('hip', 'hip', 'hoo', 'ray');
...
for (1..12){
  print "$Cheers[$flip = ++$flip % 4]\n";
}