my $sth = $dbh->prepare( qq{
  INSERT into Disease_Types(Adapted_code)
  SELECT CONCAT("A", code) from Disease_Types
}) or die "SQL prepare error!";

$sth->execute();