I don't like

for (1..12){ 
  print "$Cheers[$flip = ++$flip % 4]\n"; 
}
[download]

because you're throwing away the result of the ++. Either change it to

$flip = ($flip + 1) % 4;
[download]

or the slightly cooler

($flip += 1) %= 4;
[download]

-- Randal L. Schwartz, Perl hacker