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";
}