undef $ref;
    if ("HASH" eq ref $ref && exists $ref -> {"Some key"}) { }

##</code><code>##

    $ref = [];
    if (exists $ref -> {key}) { }