my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players;
my $player_name = $players{$sorted_players[$match_player]};
my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players;
my $player_name = $players{$sorted_players[$match_player]};