#!/usr/bin/perl
 use warnings;
 use strict;
 
 use DBI;
         
 my $dbh = DBI->connect( "dbi:SQLite:dbname=mydatabase.db", "", "" )|| die "Cannot connect: DBI";
 
 my @pages;
 # Create the table and make the columns
 my $column_creator = join(' INTEGER,', @pages) . ' INTEGER';
 my $create_columns = "CREATE TABLE mytable ($column_creator)";
 $dbh->do($create_columns);
 
 my $id_number = 1;
 my $current_column;
 my @splitted_string1;
 
 $current_column = $db->query("SELECT text FROM data WHERE id = '$id_number'")->list;
 print $current_column;
 @splitted_string1 = split " ", $current_column; 
 }