foreach my $jobId (@joid) { #print __LINE__ . " UPDATE twsJobs SET $update WHERE jobId = $jobId\n"; #Unpack our hash and send the key,value over to updateTableSingle while (my ($k,$v) = each (%stmnt)) { $dbh = updateTableSingle($dbh,$k,$v,$jobId); } } ...