#!/usr/bin/perl use warnings; use strict; use feature qw{ say }; use DBI; my @columns = qw( author year` day" month; 42 ); my $dbh = DBI->connect('dbi:SQLite::memory:') or die "Cannot connect: $DBI::errstr"; $dbh->{RaiseError} = 1; my $column_list = join ', ', map $dbh->quote_identifier($_), @columns; $dbh->do("CREATE TABLE data ($column_list)"); $dbh->do('INSERT INTO data VALUES(' . join(', ', 1 .. @columns) . ')'); my $sth = $dbh->prepare("SELECT $column_list FROM data"); $sth->execute; while (my @row = $sth->fetchrow_array) { say "@row"; }