in reply to using 'keys' recursively on a hash of hashes
use map and values:
my @dates = map { keys %$_ } map { values %$_ } values %$rhent; [download]