returning the avatar name

hey, I'm trying to make a script that will store the names of the people who have payed money to an object in a list, however all I seem to manage is the key id for each avatar... any suggestions?

This should get you started

// Very Keynes
// October 2008
//
list names;

default
{
	money(key giver, integer amount)
	{
		string name = llKey2Name(giver);
		if(-1 == llListFindList(names, [name]))
		{
			names += name;
		}
	}
	touch_start(integer total_number)
	{
		llSay(0, "The following have donated");
		integer x;
		while( x++ < llGetListLength(names))
			llSay(0, llList2String(names, x));
	}
}

Thanks man