my $userinput = <STDIN>;
#As,Qc,Td,6c,3h
chomp $userinput;
my @hand = split /,/, $userinput;
my $score = ScoreHand(@hand);
say $score;
#6405