my @record=(
		$Tag1, $Tag2, 
		$CommentAll,
		$today
	);