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);