#!/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;;