my $insert = $dbh->prepare("insert into table values (?,?,?)");
while (something) {
  $insert->execute($var1,$var2,$var3);
} # end-while