Select Code to Download

SELECT val1 FROM tbl1 WHERE x IN (11, 22, 33, ...);

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

...
    { x => \@id },
  )
};