Is there anyway I can make this DataStore script shorter/more organized?

Before I saw someone on this site say to use Table's when you plan on storing ton's of stuff in DataStore, so I tried doing it for testing purposes and came out with this, it work's fine, but I was wondering if there is anyway I can make this script shorter/make it more organized.

Any help appreciated.

It is GUI based, but I converted it to hint's for ScriptingHelpers.

Script:

-- December 6, 2015

-- Settings
local ToSave = {"Cash"}

-- Variables
local Player = script.Parent.Parent.Parent.Parent
local Stats = Player:WaitForChild("leaderstats")

local Button = script.Parent.Parent.TextButton
local Button2 = script.Parent.Parent.TextButton2

local DataStore = game:GetService("DataStoreService"):GetDataStore("GameService")

local Debounce = false

-- Main script
local h =  Instance.new("Hint",workspace)
h.Text = "Waiting for DataReady."

Player:WaitForDataReady()

h.Text = "Got DataReady."

wait(1)

function Load()
	for i = 1,#ToSave do
		wait(0.1)
		h.Text = "Loading "..ToSave[1]:lower().."."
		wait(1)
		if DataStore:GetAsync(ToSave[1]..Player.userId) then
			Stats:FindFirstChild(ToSave[1]).Value = DataStore:GetAsync(ToSave[1]..Player.userId)
		end
		h.Text = "Loaded "..ToSave[1]:lower().."."
	end
	Debounce = false
end

function Save()
	for i = 1,#ToSave do
		wait(0.1)
		h.Text = "Saving "..ToSave[1]:lower().."."
		wait(1)
		DataStore:SetAsync(ToSave[1]..Player.userId,Stats:FindFirstChild(ToSave[1]).Value)
		h.Text = "Saved "..ToSave[1]:lower().."."
		print("Successfully saved "..ToSave[1])
		table.remove(ToSave,1)
	end
	ToSave = {"Cash"}
	Debounce = false
end

Button.MouseButton1Click:connect(function()
	if not Debounce then
		Debounce = true	
		Save()
	end
end)

Button2.MouseButton1Click:connect(function()
	if not Debounce then
		Debounce = true	
		Load()
	end
end)