use DBI;
use SQL::Abstract;

my $dbh = DBI->connect("dbi:....");
my $sql = SQL::Abstract->new();

my ( $stmt, @bind ) = $sql->update(
    'table',
    { Y => 0 },
    { X => \@ARRAY },
);
my $sth = $dbh->prepare( $stmt );
$sth->execute( @bind );