join ',', map "?", keys %$c

##</code><code>##

join ',', ("?") x keys %$c

##</code><code>##

chop(my $placeholderstr = join '', map {'?,'} keys %$c);

##</code><code>##

chop(my $placeholderstr = '?,' x keys %$c);