Select Code to Download

my %players;

while (my $player = make_next_player())
...
        $players{ $player->{name} } = $player;
    }
}