# 1.)
scalar grep defined, values %$hash;

# 2.)
undef $_ for values %$hash;
[download]

At 2.), I interpreted your question as in just emptying all slots, without removing their keys.

Makeshifts last the longest.