sub NEXTKEY { my $self = shift; return each %{$self->{CURRENT}}; }