my @a = keys(%hash);
if ($#a == -1) ...