Perl Postgresql Update