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