It still isn't doing what I need. Here is more info.
sub update_closing {
my ($name, $value, $params, %params, @variables, $variables, $loop, @values, $values);
$params{$name} = $value;
foreach $name ( param() ) {
$value=$dbh->quote(param($name));
print "$name = $value ";
push...