my $dbx = DBIx::Interp->new($dbh);

my @ary = @{
  $dbx->selectcol_arrayref_i(
    "SELECT val1 FROM tbl1 WHERE",
    { x => \@id },
  )
};