sub debug_hash( $hashref, $bad_keys = [qw[ schema logger ]] ) { my %output = %$hashref; delete @output{ @$bad_keys }; print Dumper \%output; } debug_hash( { logger => 'foo', payload => 'bar' } ); debug_hash( { schema => 'users', password => 'hunter2' }, ['schema', 'password'] );