use Data::Dumper;

my $var = { '1234-567' => { 'key1' => 'stuff' ,
                         'key2' => 'stuff',
                       },
         '1234-997' => { 'key1' => 'stuff' ,
                         'key2' => 'stuff',
                       }
       };

print Dumper($var);
delete $var->{'1234-997'};
print Dumper($var);

##</code><code>##

$VAR1 = {
          '1234-567' => {
                          'key2' => 'stuff',
                          'key1' => 'stuff'
                        },
          '1234-997' => {
                          'key2' => 'stuff',
                          'key1' => 'stuff'
                        }
        };
$VAR1 = {
          '1234-567' => {
                          'key2' => 'stuff',
                          'key1' => 'stuff'
                        }
        };

##</code><code>##

my $var = {};
print if exists $var->{a};
print Dumper($var);

print if exists $var->{a}->{b};
print Dumper($var);

##</code><code>##

$VAR1 = {};
$VAR1 = {
          'a' => {}
        };