my $sthH= $dbh->prepare("SELECT code from Disease_Types") or die "Couldn't prepare query: ".$dbh->errstr;
	$sthH->execute or die "Couldn't execute query: ".$sthG->errstr;;
	my @names =();
	while (my ($name) = $sthH->fetchrow_array) {
	  push @names, $name;
	}
	my @new_name = ();
	foreach (@names){
	  my $name = $_;
	  my $cat_name = "A"."$name";
	 
	  push @new_name, $cat_name;
	  
	}
	#print @new_name;
	
	foreach (@new_name){
	  my $sthI = $dbh->prepare('INSERT into Disease_Types (Adapted_code) Values ("$_")');
	}