sub TIEHASH
  {
      my $class = shift;

      my $self = bless({HASH_DATA => {}}, $class);

      return $self;
  }