sub FIRSTKEY {
    my ($self) = @_;
    each %{ $self->{'value'} };
}

sub NEXTKEY {
    my ($self) = @_;
    each %{ $self->{'value'} };
}