sub plist { '(' . join( ',', ('?') x $_[0] ) . ')' }

my @ids = ( 1, 2 );

my $value_lookup_sth = $dbh->prepare("
   SELECT value
    WHERE id IN ".plist(0+@ids)."
");

$value_lookup_sth->execute(@ids)
   or debug($DBI::errstr);