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