use constant foo => do {
 my $foo;
  # do something that is really hard to lookup or calculate
 $foo; # return of the do
};

##</code><code>##

if (foo) {
} else {
}