perl -MData::Dumper -we 'print Dumper $h1 unless $h1->{a}->{b}->{c}'
$VAR1 = {
          'a' => {
                   'b' => {}
                 }
        };