#1. 
if ((scalar grep {defined} values %{$hash}) == 0) {
   # all values are undef
}

#2.
$hash = { map {$_ => undef} keys %{$hash} };
# now empty