while ( (my $nkey, my $nvalue) = each %player_info ) {
        # stuff with $nvalue->[$ndx]
    }