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>
