my $x=keys %HASH;