Select Code to Download

my $sth = $dbh->prepare("INSERT INTO ques(username, userque, ...) VALU
+ES (?, ?, ...)");
foreach my $t (split '~', $txtque){
     $sth->execute($usernamenow, $t, ...);
}