use Games::Cards::Poker qw(:all);

open(FIL,"prob54data.txt");
@games = <FIL>;
close(FIL);

$wins = 0;
$n = 0;
UseSlow(1);
foreach $g (@games) {
  chomp($g);
  my ($p1,$p2,$p3,$p4,$p5,$o1,$o2,$o3,$o4,$o5) = split(' ',$g);
  my @player = ($p1,$p2,$p3,$p4,$p5);
  my @opp = ($o1,$o2,$o3,$o4,$o5);
  $s1 = SlowScoreHand(@player);
  $s2 = SlowScoreHand(@opp);
  if ($s1 < $s2) {
    $wins++;
  }
  $n++;
}
print "Player 1 wins " . $wins . " times ($n games counted)\n";