sub TIEHASH
{
        my ($class, $self) = @_;
        $self->{level} = "";
        $self->{name} = "top";
        $self->{top} = {};
        bless ($self, $class);
}