my ($x) = keys %HASH;