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