#################################################
# 	Sub get_nth_element_in_keyed_array  	#
#################################################
#################################################
#   	PUBLIC Subroutine                       #
#################################################
sub get_nth_element_in_keyed_value_array($$;*){
	
	my $self = shift;
	
	local ($key,$place,*TABLE) = @_;
	
	my @List = @{$self->get_keyed_value_array($key)} 
	my $i = 0;
	my ($value) = grep {!(++$i % $place)} @List;

	return $value;
}