my @ins = qw(1 2 3 4 5 6);
my $in;  $in .= '?, ' for @ins;

# discard hanging comma
$in =~ s/, $//;
my $sth = $dbh->prepare("SELECT foo FROM Bar WHERE baz in ( $in )");
$sth->execute( @ins );