Select Code to Download

  while (($key,$value) = each %$DB_name) {

   my %name_to_hash = (
      ISWTEST => \%ISWTEST,
...
      #...);
   while (($key,$value) = each %{$name_to_hash{$DB_name}}) {
      #...