Postgre Perl Update