sub remove_card
{
     my ($self) = @_;

     return pop(@{$self->{cards}});   # Returns nth element
}

##</code><code>##

$self->cards([$self->cards()->[1..$self->num()-1]]);