my $param = 0;
$param |= FOO if $foo > 0;
$param |= BAR if $bar != 1;
$param |= BAZ if $baz > $foo;
quux($param);

##</code><code>##

quux($foo > 0, $bar != 1, $baz > $foo);

##</code><code>##

quux( ($foo > 0 && FOO) | ($bar != 1 && BAR) | ($baz > $foo && BAZ) );