my ($flush, $straight, $score, $p1, $p2, @hand, @rank, %h);
my @rating = (0,7,3,1,6,2,4,5,8,9 ); #('high card','four of a kind','three of a kind','pair','full house','two pairs','straight','flush','straight flush','royal flush');
my %cv = (A => 14, K => 13, Q => 12, J => 11, T => 10); #card values for ace & face cards
 
my $trials = <DATA>; #data at end of script
my $player1 = 0;
 
for (1..$trials) {
  @cards = split /s/,<DATA>;  #separate cards into an array
  ($r1,$h1,$px1) = rank(splice(@cards,0,5));
  ($r2,$h2,$px2) = rank(splice(@cards,0,5));
  $player1++ if $r1>$r2;
  if ($r1==$r2) {
    if ($r1==0 || $r1==4 || $r1==5 || $r1==8) {$player1++ if $h1>$h2}
      else {$player1++ if $px1>$px2}
  } 
}
 
print "Player 1 wins $player1 hands.";
 
sub rank {
  %h=(); $score = 0; $highset=0;
  @hand = @_;
  $flush = flush_check(map (chop,@hand));
 
  @rank = sort{$b <=> $a} map ($cv{$_} || $_, @hand);
  $straight = straight_check(@rank);
  $h{$_}++ foreach @rank;
  ($p1,$p2) = reverse sort values %h;
  if ($flush || $straight) {
    $score = 5 + $straight + $flush*2;
    $score++ if $flush && $rank[-1]==10;
  } elsif ($p1>1) { $score = $p2*2-$p1+3 }
  if ($p1>1) {
    for (sort keys %h)  { if ($h{$_}==$p1) {$highset=$_;last}
  }
}
return ($rating[$score],$rank[0],$highset);
}
 
sub flush_check {
  return 1 if $_[0] eq $_[1] && $_[1] eq $_[2] && $_[2] eq $_[3] && $_[3] eq $_[4];
  return 0
}
 
sub straight_check {		
  return 1 if $_[0]==14 && $_[1]==5 && $_[2]==4 && $_[3]==3 && $_[4]==2;
  return 1 if $_[0]-$_[1]==1 && $_[1]-$_[2]==1 && $_[2]-$_[3]==1 && $_[3]-$_[4]==1;
  return 0
}
__END__
1000
8C TS KC 9H 4S 7D 2S 5D 3S AC
5C AD 5D AC 9C 7C 5H 8D TD KS
3H 7H 6S KC JS QH TD JC 2D 8S
TH 8H 5C QS TC 9H 4D JC KS JS
7C 5H KC QH JD AS KH 4C AD 4S
5H KS 9C 7D 9H 8D 3S 5D 5C AH
6H 4H 5C 3H 2H 3S QH 5S 6S AS
TD 8C 4H 7C TC KC 4C 3H 7S KS
7C 9C 6D KD 3H 4C QS QC AC KH
JC 6S 5H 2H 2D KD 9D 7C AS JS
AD QH TH 9D 8H TS 6D 3S AS AC
        ... data continues ...