Select Code to Download

my $sth = $dbh->prepare(qq{SELECT val1 FROM tb11 WHERE x=?})
foreach my $id (@id){
...
        push @ary, $val1;
    }
}

if (@id) {
    my $ids = join ',', map {$dbh->quote($_)} @id;
    $col_ref = $dbh->selectcol_arrayref(qq{SELECT val1 FROM tb11 WHERE
+ x IN ($ids)})
}