Perhaps what you want is a way to reference the deepest level of your nested hashes without typing massive amounts of text?

$ref = $ASDF{ABC}{ASDF};
for (keys %$ref) {
    print "$_ => " . $ref->{$_} . "\n";
}
[download]