I would use globals for that, since they don't get messed up by use in a quoted context.

BEGIN {
    use vars qw($FOO);
    $FOO = ... # some slow action here
}

if ($FOO) {

}
[download]