for(0..$size-1){
   $tstr=$tstr."?,";
   $tv=$tv.@table[$_].",";
}
chop($tstr);
chop($tv);

##</code><code>##

my $tstr = join ',', ("?") x @table;
my $tv = join ',', @table;