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

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