- $s->{Surplus} = $surplus;
- push @newsurpluses, $s;
- delete $sorted{ $s->{Cand} };
- delete $continuing{ $s->{Cand} };
+ foreach $s (@elect) {
+ printf "%7s %10s ***************\n", 'ELECTED', $s->{Cand};
+ push @elected, $s->{Cand};
+
+ foreach my $vote (@{ $s->{Votes} }) {
+ votelog $vote, "elected $s->{Cand}";
+ }
+
+ $s->{Surplus} = $surplus;
+ push @newsurpluses, $s;
+ delete $sorted{ $s->{Cand} };
+ delete $continuing{ $s->{Cand} };
+ }