#!/usr/bin/perl
@userinput = <STDIN>;
#What i will type e.g.: As,Qc,Td,6c,3h
$score = ScoreHand(@userinput);