Select Code to Download

# Using "tie".

...

   untie(%data);  # Free mem. %data going out of scope is not enough.
}

# Using objects.

...
      $data->{'Entries'}{'Flowers'}{'Rose'  }{'Colour'}, $/,  # red
      $data->{'Entries'}{'Flowers'}{'Dahlia'}{'Colour'}, $/;  # blue
}

package Tie::Hash::Inheriting;

...
sub DELETE   { delete $_[0][0]->{$_[1]} }
sub CLEAR    { %{$_[0][0]} = () }
sub SCALAR   { scalar %{$_[0][0]} }

use Tie::Hash::Inheriting ();

...
   my ($self) = @_;
   untie(%$self);
}