my $x = scalar(keys %hash);