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