[- $mdat{cnt}++  -]
		[#
		tied (%mdat) [+ $m = tied (%mdat) +]  
		ref          [+ ref ($m) +]  
		content      [+ do { my @tmp = map { "$_ = $mdat{$_}" } keys (%mdat) ; join (', ', @tmp) } +]  
		tied (%udat) [+ $u = tied (%udat) +]  
		ref          [+ ref ($u) +]  
		content      [+ do { my @tmp = map { "$_ = $udat{$_}" } keys (%udat) ; join (', ', @tmp) } +]  
		#]