@array = qw(one two three);
$p_str = join ',',('?')x@array; ## parens added here puts the '?'s into list format