while ( (my $nkey, my @nvalue) = each %player_info ) {
        #stuff
    }