tbl={
["data1"]=39,
["data2"]=30,
["data3"]=29,
["data5"]=21,
["data10"]=9,
["data12"]=7,
["data14"]=40,
["data19"]=16,
}

for index in sorted_pairs(tbl) do
	print(tbl[index])
end

local tbl2 = {}
for k, v in pairs(tbl) do
	table.insert(tbl2, k)
end

for i = 1, #tbl2 do
	--do something with tbl[tbl2[i]]
end

function table.vsort(tbl)
	local tbl=tbl
	local tbl2 = {}
	for k, v in pairs(tbl) do
		table.insert(tbl2, k)
	end
	
	local index=0
	local j=0

	for i = 1, #tbl2 do
		--do something with tbl[tbl2[i]]
		index=tbl[tbl2[i]]
		j=i-1
		while ((j>=1) and (tbl[tbl2[j]] > index)) do
			tbl[tbl2[j+1]]=tbl[tbl2[j]]
			j=j-1
		end
		tbl[tbl2[j+1]] = index
	end
	
	return tbl
end

local f = function(a,b)
	return tbl[a] < tbl[b]
end
table.sort(tbl2, f) // i believe this uses an implementation of quicksort

local tbl=tbl

lfs = require"lfs"
local filelist = {}
local int = 1
for file in lfs.dir("/path/to/files/") do
	if file ~= nil and file ~= "." and file ~= ".." then
		filelist[int] = file
		int = int + 1
	end
end
table.sort(filelist, function (a,b) return (a > b) end)

tbl={
	["data1"] = 39,
	["data2"] = 30,
	["data3"] = 29,
	["data5"] = 21,
	["data10"] = 9,
	["data12"] = 7,
	["data14"] = 40,
	["data19"] = 16,
}

-- first add to a new table swapping keys and values
-- then we add just the values to an ordered table
sorted = {}
swapped = {}
int = 1
for k,v in pairs(tbl) do
	swapped[v] = k
	sorted[int] = v
	int=int+1
end
-- this will be in acending order, switch "<" to ">" for decending
table.sort(sorted, function (a,b) return (a < b) end)

-- now we can iterate throught the sorted table
for i=1,#sorted do
	-- print the original values in order
	print(sorted[i])
	
	-- this gives us the original keys, sorted by the original values
	print(swapped[sorted[i]])
end

function sorted_pairs(tbl)
	local sorted={}
	local swapped={}
	local int=1
	
	for k,v in pairs(tbl) do
		swapped[v] = k
		sorted[int] = v
		int=int+1
	end
	table.sort(sorted, function (a,b) return (a < b) end)
	
	local n=0
	local function sorting(state)
		if n<state then
			n=n+1
			return swapped[sorted[n]],sorted[n]
		end
	end
	return sorting,#sorted,0
end

for v1,v2 in sorted_pairs(tbl) do
	print(v1.."|"..v2)
end

tbl = {
	data1 =39,
	data2 = 30,
	data3 = 29,
	data5 = 21,
	data6 = 16,
	data10 = 9,
	data12 = 7,
	data14 = 40,
	data19 = 16,
}

local sortedPairs = function(t)
	local tk = {}
	for k, v in pairs(t) do
		tk[#tk+1] = k
	end
	table.sort(tk,
		function(a, b) return t[a] < t[b] end
	)
	local i = 0
	return function()
		i = i + 1
		if tk[i] then
			return tk[i], t[ tk[i] ]
		end
	end
end

for k, v in sortedPairs(tbl) do
	print(k, v)
end

tbl = {
	data1 = 39,
	data2 = 30,
	data3 = 29,
	data5 = 21,
	data6 = 16,
	data10 = 9,
	data12 = 7,
	data14 = 40,
	data19 = 16,
}

function sorted(t,direction)
	ts = {}
	for k,v in pairs(t) do
		ts[ #ts + 1 ] = { key = k, value = v }
	end
	if direction == "a" then
		table.sort(ts, function (a,b) return (a.value < b.value) end)
	elseif direction == "d" then
		table.sort(ts, function (a,b) return (a.value > b.value) end)
	end
	return ts
end

tbl = sorted(tbl,"a")
for i=1,#tbl do
	print( tbl[i].key, tbl[i].value )
end

data12	7
data10	9
data19	16
data6	 16
data5	 21
data3	 29
data2	 30
data1	 39
data14	40