#!/usr/bin/perl -w

use strict;

use DBI;

my $line = "var1, var2, var3";

my $dbh = DBI->connect('DBI:mysql:test') or die "Couldn't connect to database: " . DBI->errstr;
my $create = "create table dummy3 (" . join (',', map { $_ . ' varchar(255) ' } split /,/, $line) . ");";

my $sth = $dbh->prepare($create) or die "Couldn't prepare statement: " . $dbh->errstr;
$sth->execute or die "Couldn't execute statement: " . $sth->errstr;;

##</code><code>##

mysql> desc dummy3
    -> ;
+-------+--------------+------+-----+---------+-------+
| Field | Type         | Null | Key | Default | Extra |
+-------+--------------+------+-----+---------+-------+
| var1  | varchar(255) | YES  |     | NULL    |       |
| var2  | varchar(255) | YES  |     | NULL    |       |
| var3  | varchar(255) | YES  |     | NULL    |       |
+-------+--------------+------+-----+---------+-------+
3 rows in set (0.00 sec)