Select Code to Download

$HoHoH->{"alice"}{"aaaa"} = "20:00:00";
# instead of
# $HoHoH->{"alice"}{"aaaa"}{"time"} = "20:00:00";

foreach my $user ( sort keys %$HoHoH ) {
  print "$user\n";
...
             }
       keys %{$HoHoH->{ $user }} ) {
...