Select Code to Download

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

flip at 1? yes
flop at 1? yes
...
flop at 4? yes
flip at 5? yes
flop at 5? yes