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