my $sqlB = "update ICD_9_Disease_Types set ICD_9_code = ('A') + ICD_9 FROM ICD_9 WHERE ICD_9 > 0";

	my $sthG = $dbh->prepare($sqlB) or $dbh->errstr();
	my $rows_updated = $sthG->execute();
	
	print "We updated $rows_updated rows\n";


##</code><code>##

We updated 0E0 rows