my $tuples = $query->execute_array(
    {   ArrayTupleStatus    => \my @tuple_status,
        ArrayTupleFetch     => sub { return shift @data; },
     },
    );