my %dateNumHash = ();
foreach my $dateAsString (keys (%$dataHash)) 
{
	$dateNumHash{(getTime($dateAsString))} = $dateAsString;
}
#print "\tSORTED \n";
for my $timeKey (sort(keys(%dateNumHash)))
{
	my $time = $dateNumHash{$timeKey};
	print TWIKI "*".$time."*|";
}
print TWIKI "\n";