sub FIRSTKEY { my $self = shift; my $a = keys %{$self->{CURRENT}}; each %{$self->{CURRENT}}; }