foreach $key(keys %user_info)
        {
        next if $key eq "UserId";
        $sth = $dbh->prepare("
            Update tUser
            Set $key = ? 
            Where UserId = ?
            ");

            $sth->execute($user_info{$key}, $user_info{'UserId'});
        }
    $sth->finish();