foreach  my $set ( sort {#???}  keys %HoHoA )
{
    print "$set\n";
}