Select Code to Download

sub DeleteValueTreeWithinHash
{
...

   print Dumper ($HashData);
}

$VAR1 = {
          '' => undef
        };

$VAR1 = {
          '0.29 type (ABC) {' => {
...
' => {}
        };

sub RecursiveFunctionToDeleteValueWithinHash
{
...
}

$VAR1 = {
          '0.29 type (ABC) {' => {
...
' => {}
        };