[...]
  if ((my $foo = Green::updateRec(\%ARGS))) {
[...]


##</code><code>##


sub updateRec {

    $new = shift @_;

[...]


##</code><code>##

   
       $sth->execute($new->{first}, $new->{middle}, $new->{last}, $new->{address}, $new->{city}, $new->{state}, $new->{zip}, $new->{email}, $new->{county}, $new->{precinct}, $new->{region}, $new->{home}, $new->{other1}, $new->{other2}, $new->{work}, $new->{ext}, $new->{occupation}, $new->{id});


##</code><code>##


      print STDERR "\n SHAZAM!!!! $new->{middle} \n";