#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump 'dumpf';

my $hr = {
    schema   => 'foo',
    whatever => 'you want',
    log      => 'bar',
    quux     => {
        log   => 'baz',
        still => 'want this'
    }
};

print dumpf (
    $hr,
    sub {
        return {hide_keys => [qw/log schema/]};
    }
) . "\n";