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