sub get_list {
        my ($self) = @_;
        my %ref = %{ $self->{'list'} };
        return \%ref;
}