my $x = keys %HASH;