use constant DEBUG => 1;
print "this is debug" if DEBUG;

##</code><code>##

$logger->debug("Erroneous array: @super_long_array")
  if($logger->is_debug());