for my $first_key ( keys %HoH ) 
 {
     print "$first_key: \n";
     for my $second_key ( keys %{ $HoH{$first_key} } )
     {
         print "$second_key=$HoH{$first_key}{$second_key} ";
     }
     print "\n";
 }