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