Updating table in dbi perl