my @question_marks = ('?') x @column_names;  #Thx [Zaxo]

##</code><code>##

 my $question_marks = join(',', ('?') x @column_names);