%reversed = reverse %hash;
@sorted = sort {sorter($a, $b)} keys %reversed;

foreach $key(@sorted)
{

print $key;

	print
	$co->a
	(
		{-href => "/References/$reversed{$key}"},$reversed{$key}
	),
	$co->p;

}