foreach my $key ( keys %hash )
{
    print "$key:\n";
    foreach my $valname ( keys %{ $hash{$key} } )
    {
        print "  $valname: ";
        print join( "\t", @{ $hash{$key}{$valname} } ), "\n";
    }
}