$ perl -MO=Deparse,-p
 use 5.010;
  sub apple  { say "apple"  }
  sub banana { say "banana" }
  sub cherry { say "cherry" }
 
  apple && (banana || cherry)
__END__

... yadda ...yadda ...

(apple() and (banana() || cherry()));