else {
        for my $k ( keys %hash ) {
            ++$count;
        }
    }