else {
        while( my $k = each %hash ) {
            ++$count;
        }
    }