my $sql = "
UPDATE ICD_9_Disease_Types
SET ICD_9_code = CONCAT('A', ICD_9_code)
WHERE ICD_9 > 0";

my $sth = $dbh->prepare($sql) or $dbh->errstr();

my $rows_updated = $sth->execute();

print "We updated $rows_updated rows\n";