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