to recurse through the values

for $key1 (keys %hash) {
    for $key2 (keys %{$hash{$key1}}) {
        for $integer  (keys  %{$hash{$key1}{$key2}} ) {
            print  "\$hash{$key1}{$key2}{$integer} 
= $hash{$key1}{$key2}{$integer}\n";
        }
    }
}

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


Reply via email to