my $sthH = $dbh->prepare("INSERT INTO Disease_types (Adapted_code)
SELECT ('A'+code) FROM Disease_types") or die "Couldn't prepare query: ".$dbh->errstr;
	
	$sthH->execute() or die "Couldn't execute query: ".$sthH->errstr;