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