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

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