Select Code to Download

  while ( ($key, $value) = each %hash ){
  }

  @array = keys %hash;
  foreach $key (@array){
...
   # key, value deletions.
  }