sub NEXTKEY {
  my $self=shift;
  my $lastkey=shift;
  do {
    $key=$KEYS[$self->{INDEX}++];
    next if ($key eq $self->{FIRSTKEY});
    return($key);
  }
}