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