@array = qw(one two three);
$p_str = join ",",'?'x@array;