sub doIfTrue() { print "Doing true stuff...\n" }
sub doIfFalse() { print "Doing false stuff...\n" }

my $booleanVariable = false;

$booleanVariable ? doIfTrue() : doIfFalse();