sub foo
{
  my $retVal = undef;
  $retVal = $someObject->bar()->doSomething();
  $retVal = \$retVal;

  Log4perl->debug('retval: ', sub {$retVal});

  return $retVal;
}