#!/usr/bin/perl
use strict;
use warnings;
use DBD::SQLite;

my $dbh = DBI->connect("dbi:SQLite:dbname=solution.db","","") or die $DBI::errstr;

for my $size (1 .. 26) {
    my $sql = "CREATE TABLE solution$size (nform TEXT, solution TEXT)";
    $dbh->do($sql) or die $dbh->errstr;
}
$dbh->disconnect or die $dbh->errstr;