# Ok - pick a value based on the value of $bar
$foo = $bar eq "baz" ? "foobaz" : "foobar";
print "I am the ", ($sex eq "male" ? "king" : "queen"), "of rock & roll";
some_subroutine( ref($foo) eq "ARRAY" ? $foo : [$foo] );