#################################################
#     Sub get_nth_element_in_keyed_array      #
#################################################
#################################################
#       PUBLIC Subroutine                       #
#################################################
sub get_nth_element_in_keyed_value_array($$){
    
    my $class = shift;
    
    local ($key,$place) = @_;
    
    my @List = @{$self->get_keyed_value_array($key)};
    return $List[$place];

}
[download]

This code is much better. In rare cases it will be nice to get a single element without the entire row.