http://qs1969.pair.com?node_id=191738


in reply to using 'keys' recursively on a hash of hashes

Try this:
my @dates = map {keys %{$_}} map {values %{$_}} values %{$rhent};