my @query_queue;
my $query = qq{
           UPDATE wms_rf_server_port
            SET    available           = ?,
                   last_updated_by     = ?,
                   last_updated_date    = ?
            WHERE  port_id IN ( $port_ids )
    };

push @query_queue, $query

.... if the query is successful {
   pop @query_queue;

.... else, reconnect and try sending the query back to the DBMS