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