A minor correction...

@array = qw(one two three);
$p_str = join ',',('?')x@array; ## parens added here puts the '?'s int
+o list format
[download]

The join will return the '?' seperated by commas. "?,?,?"
In the post that you took this from, the '?'s are used as placeholders