Here is a working example. Look at the Insert line.

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=mydb.txt","","");
die $! unless $dbh;

# customer vendor transType productCode appNumber resultCode

eval {
$dbh->do(qq{ CREATE TABLE sales
            (customer int, vendor int, type   char(10),
              product int, app    int, result int)
            });
};
my $sql_fmt = "INSERT INTO sales VALUES(?, ?, ?, ?, ?, ?)";
while(<DATA>) {
    $dbh->do($sql_fmt, {}, split);
}

__DATA__
10112    6768    cash    01020    00780    1
10112    6768    cash    01020    00780    0
10112    6768    credit    00040    01010    1
10112    3650    cash    01840    01200    0
14100    2410    credit    02840    00910    0
14100    5220    credit    01020    00780    1
[download]