use strict;
use integer;
use Tom::Cardplay;

my $play1  = Cardplay->new();
$play1->{NAME} = "Ergowolf";
print "$play1->{NAME}\n";

# add cards
&Cardplay::deal;
push(@{ $play1->{CARDS} }, $_);
push(@{ $play1->{VALUES} }, $value);
&Cardplay::deal;
push(@{ $play1->{CARDS} }, $_); 
push(@{ $play1->{VALUES} }, $value);
print "@{ $play1->{CARDS} }\n";
print "@{ $play1->{VALUES} }\n";