my $dbh=DBI->connect("xxxx"); # My DB is SQLSERVER 2005
foreach (keys %hash) {
	my $query = "UPDATE tab SET d='$hash{$_}' WHERE id=$_";
	die "Error $query\n" unless $dbh->do($query);
}
$dbh->disconnect;