use DBI;
my $dbfile = 'database.db';      # your database file
my $dbh = DBI->connect(          # connect to your database, create if needed
    "dbi:SQLite:dbname=$dbfile", # DSN: dbi, driver, database file
    "",                          # no user
    "",                          # no password
    { RaiseError => 1 },         # complain if something goes wrong
) or die $DBI::errstr;

my $table = 'test';
my @rows  = qw(id time data);
$dbh->do("create table $table (".join(',',@rows).')')
  or die $DBI::errstr;