my $x = keys %hash; # reset each() operator