How to create and add hair on player through script?

I am trying to add this meshpart that looks like hair on the player:

local player = game.Players.LocalPlayer
local char = player.Character
local hum = player.Character.Humanoid
local canTrans = true



player.Chatted:connect(function(msg)--changing health
    if string.sub(msg, 1, 13) == "transform" and canTrans == true then
        wait(3)
        hum.MaxHealth = hum.MaxHealth * 50
        hum.Health = hum.Health * 50
    end
end)

player.Chatted:connect(function(msg)--chat transform 
    if string.sub(msg, 1, 13) == "ssj" and canTrans == true then
        canTrans = false
        if char:FindFirstChild('Humanoid') then --delete accessories
            for i,v in pairs(char:GetChildren()) do
                if v:IsA'Accoutrement' or v:IsA'Hat' then
                    game.Debris:AddItem(v, .3); 
                end
            end
        end
    end
        local part = Instance.new("Part")
        part.Material = "Neon"
        part.Size = Vector3.new(2,2,2)
        part.Parent = workspace
        part.Anchored = true
        part.CanCollide = false
        part.Shape = "Ball"
        part.BrickColor = BrickColor.new("New Yeller")
        part.CFrame = char.Torso.CFrame

            for i = 1,750,5 do
            wait()
            part.Size = part.Size + Vector3.new(.25,.25,.25)
            part.CFrame = char.Torso.CFrame
            end
            part:Destroy()
        wait(1)
        local hair = game.ServerStorage.MeshPart:Clone()--referencing the hair meshpart
        hair.Parent = char.Head
        hair.Position = char.Head.Position


    end)

The script deletes all accessories. How do I make a meshpart a wearable accessory and how do I add it into the player in a script?