{
   my @goners;
   while( my( $k, $v ) = each %hash ){
      push @goners, $k;
   }
   delete @hash{ @goners };
   undef @goners;
}