how to print dual key hash..

[newBee]

I have the fallowing code segment in my code. I want to print my

foreach $document(@documents){
        $valueOfTermD = 0;
        $powerOfTermD = 0;
        foreach $term(keys %termWeightHash){
                if($termWeightHash{$term}{$document}){
                        $powerOfTermD = $powerOfTermD + 
$termWeightHash{$term}{$document}*
$termWeightHash{$term}{$document};
                }
        }
        $valueOfTermD = sqrt($powerOfTermD);
        $hashTermD{$document} = $valueOfTermD;
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/