my $sth = $dbh->prepare(qq{
  INSERT into pac.promo_rpt (
    dlrcode, dlrgroup, division, country, planner,
    ordertype, daysofsupply, run_dow, sof_or_excel, abc_codes
  ) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
});

$sth->execute( $foo, $bar, $baz, $qux... );