my $p_str = join ',', ('?') x @array;