sub pop {
    my $self = shift;
    my $ret = $self->{start};
    return if not defined $ret; # return if the list is empty.
    $self->{start} = $ret->{next};
    $self->{start}{prev} = $ret->{next} = undef;
    return $ret->{element};
}