my $length = scalar keys %hash;