sub pop{
    my $self = shift;
    if (@_) { # test for next argument
      $self->{pop} = shift;  # assign argument to "pop" value
    }
    return $self->{pop};     # return "pop" value
}