warn Data::Dumper->Dump([$p],['p']);

##</code><code>##

$logger->trace( {filter => \&Data::Dumper::Dumper, value => $variable_to_dump }, undef, $TRACE, undef, undef );