Select Code to Download

use strict;
use integer;
...
push(@{ $play1->{VALUES} }, $value);
print "@{ $play1->{CARDS} }\n";
print "@{ $play1->{VALUES} }\n";

package Cardplay;

...
#    }
}
END {}