foreach my $key (my @ary = %hash) {
  # print "$key: @ary\n";
  delete $hash{$key};
}