my ($key) = keys %$_;

##</code><code>##

for my $key (keys %$_) {
  ....
}