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

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

[download]

In Section Seekers of Perl Wisdom