Select Code to Download

%hash; # It stores about 70,000 records,just like $hash{"ID"} = "2002"
+,etc;

my $dbh=DBI->connect("xxxx"); # My DB is SQLSERVER 2005
foreach (keys %hash) {
...
    die "Error $query\n" unless $dbh->do($query);
}
$dbh->disconnect;

my $dbh=DBI->connect("xxxx"); # My DB is SQLSERVER 2005
my $sth=$dbh->prepare(qq{    UPDATE tab SET d='?' WHERE id=?});
...
}
$sth->finish;
$dbh->disconnect;