my $ref = undef;
keys %{$ref}; # or: keys %$ref;