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

##</code><code>##

$flip = ($flip + 1) % 4;

##</code><code>##

($flip += 1) %= 4;