foreach (keys %{$ASDF{ABC}{ASDF}}) {
   print($_, ' => ', $ASDF{ABC}{ASDF}{$_}, $/);
}