my($ret) ||= foo();