Unable to change hats?

Hi

I'm currently making a game and at the moment I'm making the character-editing system, for some reason when I'm doing the hairs, they don't clone over to the character.

The script is in a server-side script, not a local-script; the character is currently in the camera. The game is filtering-enabled and I have used individual server-events to move the character to the camera - however, I'm not sure as to why this isn't working? No errors on output. Any help would be appreciated!

hairs = {}
current_hair = 1
wait(5)
for _,v in pairs (game:GetService("ServerStorage").PlayerHairs.Hair:GetChildren()) do
    if v:IsA("Accessory") then
        table.insert(hairs, v.Name)
    end
end
table.sort(hairs)

script.Parent.Back_button.MouseButton1Click:connect(function()
    if current_hair > 1 then
        current_hair = current_hair - 1
        for _,v in pairs (script.Parent.Parent.Parent.Parent.Parent.Character:GetChildren()) do
            if v:IsA("Accessory") then 
                v:destroy()
            end
        end
        wait()
        game:GetService("ServerStorage").PlayerHairs.Hair:FindFirstChild(hairs[current_hair]):clone().Parent = script.Parent.Parent.Parent.Parent.Parent.Character
    elseif current_hair == 1 then
        current_hair = #hairs
        for _,v in pairs (script.Parent.Parent.Parent.Parent.Parent.Character:GetChildren()) do
            if v:IsA("Accessory") then 
                v:destroy()
            end
        end
        wait()
        game:GetService("ServerStorage").PlayerHairs.Hair:FindFirstChild(hairs[current_hair]):clone().Parent = script.Parent.Parent.Parent.Parent.Parent.Character
    end
end)

script.Parent.Forward_button.MouseButton1Click:connect(function()
    if current_hair < #hairs then
        current_hair = current_hair + 1
        for _,v in pairs (script.Parent.Parent.Parent.Parent.Parent.Character:GetChildren()) do
            if v:IsA("Accessory") then 
                v:destroy()
            end
        end
        wait()
        game:GetService("ServerStorage").PlayerHairs.Hair:FindFirstChild(hairs[current_hair]):clone().Parent = script.Parent.Parent.Parent.Parent.Parent.Character
    elseif current_hair == #hairs then
        current_hair = 1
        for _,v in pairs (script.Parent.Parent.Parent.Parent.Parent.Character:GetChildren()) do
            if v:IsA("Accessory") then 
                v:destroy()
            end
        end
        wait()
        game:GetService("ServerStorage").PlayerHairs.Hair:FindFirstChild(hairs[current_hair]):clone().Parent = script.Parent.Parent.Parent.Parent.Parent.Character
    end
end)