sub NEXTKEY
{
     my ($self, $lastkey) = @_;  # $lastkey isn't used?
     while (my $key = $KEYS[$self->{INDEX}++])
     {
          if ($key ne $self->{FIRSTKEY})
          {
               return $key;
          }
     }
}