#!/usr/bin/env perl
# Core Modules
use strict;
use warnings;
use utf8;
use open ':encoding(UTF-8)';
use open ':std';
use DBI;

my $dsn     = "dbi:SQLite:dbname=person.db";
my $user    = "";
my $pass    = "";
my $options = { 
    RaiseError     => 1,
    AutoCommit     => 1,
    sqlite_unicode => 1,
};

my $dbh = DBI->connect($dsn, $user, $pass, $options);

$dbh->do(q{
    CREATE TABLE person (
        id          INTEGER PRIMARY KEY AUTOINCREMENT,
        first_name  VARCHAR(255),
        last_name   VARCHAR(255)
    )
});

my $stmt = $dbh->prepare(q{INSERT INTO person (first_name, last_name) VALUES (?, ?)});
for my $data ( ['foo','bar'], ['baz','maz'], ['möp','höp'] ) {
    $stmt->execute(@{$data}[0,1]);
}