my $in;  $in .= '?, ' for @ins;

# discard hanging comma
$in =~ s/, $//;

##</code><code>##

my $in = join ', ', ('?') x @ins;