Select Code to Download

    if (($item[0] ne "") && ($item[1] ne "")){ 
      $items{"$item[0]"} = "$item[1]"; 
...
      } 
      undef %items; 
    }

while(<DB>) { 
  chomp; 
...
    print "$scottnum\t $key \t $items{$scottnum}{$key}\n"; 
  } 
}

my %info; 
 
...
  } 
} 
close DB;