foreach my $filename ( keys %HoH ) {
            print "$filename: { ";
            for my $key ( keys %{ $HoH{$filename} } ) {
                print "$key =$HoH{$filename}{$key} ";
            }
            print "}\n";
        }