Select Code to Download

while (my $key = each %hash)
{
...
      keys %hash;
  }
}

my %seen;
while (my $key = each %hash)
...
      keys %hash;
  }
}