my $count = scalar @{ values %hash };