my $insert1 = $dbh->prepare("
    INSERT INTO HR.Tempest (
        ID,
        NAME,
        TITLE,
        DEPT
    ) VALUES (?,?,?,?)
    ");

for (...whatever...)
{
    $insert1->execute($id,$name,$title,$dept);
}