Why not an SQL only solution? something along the lines of ...

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();
[download]