view release on metacpan or  search on metacpan

mj_series  view on Meta::CPAN

   @players = sort {$b eq $winner}  @players;
   $type = 0;
} elsif ($winner ne ""){
   @players = sort {$b eq $dealer} @players;
   @players = sort {$b eq $winner} @players;
   $type = 1;
} else {
   @players = sort {$b eq $dealer} @players;
   $type = 2;
}
my @scores = &{$subs[$type]}(map $points{$_}, @players);
print map "$players[$_]: $scores[$_]\n", (0..3);
push @{$scores{$players[$_]}}, $scores[$_] for (0..3);

foreach my $name (@players) {
   print "$name:\n";
   print "############\n";
   my $total;
   print map {$total+=$_; if ($_>0){"  $_\n"}else{ " $_\n";}}  @{$scores{$name}};
   print "--------------\n";
   print "Total: $total\n\n";
}
store \%scores, 'mj_scores.dat';