my @txtquearr = split('~', $txtque);
###############################################################################
my $count = 0;
foreach $txtque (@txtquearr){
$count = $dbh->do("INSERT INTO ques (username,userque,userquedetail,userquecatgory,userresponsecount,quegood,quebad,queid,userquedate,quevideo,queaudio,quepic,email)values('$usernamenow','$txtque','$txtdetail','$cat','$userresponsecount','$quegood','$quebad','$aaqueid','$userquedate','$txtvideolink','$txtaudiolink','$txtpicturelink','$txtemail')",undef,$usernamenow,$txtque,$txtdetail,$cat,$userresponsecount,$quegood,$quebad,$aaqueid,$userquedate,$txtvideolink,$txtaudiolink,$txtpicturelink,$txtemail);
print "Ques Inserted inoto Data\n";
print $txtque;
}