my $sthG = $dbh->prepare("INSERT into ICD_9_Disease_Types (ICD_9_code) SELECT CONCAT('A', select ICD_9 from ICD_9 where ICD_9 > 0);") or die "Couldn't prepare query: ".$dbh->errstr;