Select Code to Download

use Data::Dumper;

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

$VAR1 = {
          '1234-567' => {
...
                          'key1' => 'stuff'
                        }
        };

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

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

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