Select Code to Download

use strict;
use warnings;
...
foreach my $who ( @winner_first ) {
    printf "%10s : %d\n", $who, $tally_for{$who}->[0];
}

use strict;
use warnings;
...
foreach my $who ( @winner_first ) {
    printf "%10s : %d\n", $who, $tally_for{$who};
}