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