for(1..10){
  $x= $_ > 5 && 'foo' || 'bar';
  print "$_:$x\n";
}