my $x=1;
for(1,2,3,4,5) 
{
  next  if (printf("flip at %s? %s\n",$_,$x?'yes':'no'),$x)
        .. (printf("flop at %s? %s\n",$_,$x?'yes':'no'),$x);
  print "$_\n";
}

##</code><code>##

flip at 1? yes
flop at 1? yes
flip at 2? yes
flop at 2? yes
flip at 3? yes
flop at 3? yes
flip at 4? yes
flop at 4? yes
flip at 5? yes
flop at 5? yes