Why Does This Character System Create Duplicates?

In my game I have a character system, and while it works fine the game ALWAYS duplicates characters so there's more than 1 in a round. I don't want this. How can I fix it?

local Chars = {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26}
	for _, player in pairs(_G.playerlist) do
			if player and player.Character then
				local Humanoid = player.Character:WaitForChild("Humanoid")
				if Humanoid and Humanoid.Health > 0 then
					characterselectednum = math.random(#Chars)
					characterselected = game.ServerStorage.Characters[characterselectednum]
					if game.Players:FindFirstChild(player.Name) then
					table.remove(Chars, characterselectednum)
					for i,v in ipairs(Chars) do
						print("Character"..v)
					end
					local aye = Instance.new("StringValue")
					aye.Parent = player
					aye.Name = "PlayerName"
					aye.Value = characterselected.CharName.Value	
					local aye2 = Instance.new("StringValue")
					aye2.Parent = player.Character
					aye2.Name = "PlayerInfo"
					aye2.Value = characterselected.CharInfo.Value
					end
					if game.Players:FindFirstChild(player.Name) then
						local shirt = player.Character:FindFirstChild("Shirt")
						pants = player.Character:FindFirstChild("Pants")
						if shirt then
							local charsthirt = characterselected:FindFirstChild("Shirt")
							if charsthirt then
								shirt.ShirtTemplate = characterselected.Shirt.ShirtTemplate
							else
								shirt.ShirtTemplate = 0
							end
						else
							local charshirt = characterselected:FindFirstChild("Shirt")
							if charshirt then
								local shirt2 = charshirt:Clone()
								shirt2.Parent = player.Character
							end
						end
					end
					if game.Players:FindFirstChild(player.Name) then
					local shirtgraphic = player.Character:FindFirstChild("Shirt Graphic")
					if shirtgraphic then shirtgraphic:Destroy() end
					if pants then
						local charpant = characterselected:FindFirstChild("Pants")
						pants.PantsTemplate = characterselected.Pants.PantsTemplate
					else
						local charpant = characterselected:FindFirstChild("Pants")
						local pantsy = charpant:Clone()
						pantsy.Parent = player.Character
					end
					end
							if game.Players:FindFirstChild(player.Name) then
							  for i,v in pairs (player.Character:GetChildren()) do
					            if v:IsA("Accessory") or v:IsA("Hat") then
					                v:Destroy()
					            end
							end
				
							for i,v in pairs (characterselected:GetChildren()) do
					            if v:IsA("Accessory") then
									local rawr = v.Name
									if game.Players:FindFirstChild(player.Name) then
									local hato = player.Character:FindFirstChild(rawr)
									if not hato then
					                local hat = v:Clone()
									hat.Parent = player.Character
									end
									end
					            end
							 end
							
							if game.Players:FindFirstChild(player.Name) then
							if player.Character.Head:FindFirstChild("Mesh") then
							player.Character.Head.Mesh:Destroy()
								local xd = Instance.new("SpecialMesh")
								xd.MeshId = ""
								xd.MeshType = "Head"
								xd.Scale = Vector3.new(1.25, 1.25, 1.25)
								xd.VertexColor = Vector3.new(1,1,1)
								xd.TextureId = ""
								xd.Offset = Vector3.new(0,0,0)
							xd.Parent = player.Character.Head
							end
							end
							
							wait(0.01)
							if game.Players:FindFirstChild(player.Name) then
							player.Character["Body Colors"]:Destroy()
							local skin = characterselected["Body Colors"]:Clone()
							skin.Parent = player.Character
							end
						end
						player.Character.Head.face.Texture = characterselected.Head.face.Texture
				end
				wait(0.5)
			else
				table.remove(_G.playerlist, player)
					_G.Players = _G.Players - 1
				end
			end
		end