#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;

my $hash = {
            'foo' => { 'abc' => 0, },
            'bar' => { 'def' => 1, },
};
print Dumper($hash) unless exists $hash->{'baz'}{'ghi'},