The Log::Log4perl POD has a section with ways to improve log4perl performance. It looks to me like you should wrap that log string into a function so it doesn't need to interpolate when logging is off.