use DBI;
use Data::Dumper;

my $dbh = DBI->connect(
    'dbi:SQLite:dbname=dbfile','','',
 #   { RaiseError => 1},
);
eval {
   $dbh->do('drop table foo');
   $dbh->do('create table foo(id int unsigned, name char(64))');
};

my $sth = $dbh->prepare('insert into foo values (?,?)');

$sth->execute(@$_) for [1,'moe'],[2,'curly'],[3,'larry'];

print Dumper $dbh->selectall_arrayref('select * from foo');

##</code><code>##

$dbh->do('create table foo(id integer primary key, name char(64))');

my $sth = $dbh->prepare('insert into foo(name) values (?)');
$sth->execute($_) for qw(moe curry lary);