ZipCode => { pos => 1, type => 'VARCHAR', size => '5', not_null => 1, default => ''},
City => { pos => 2, type => 'VARCHAR', size => '35', not_null => 0, default => ''},
...
State => { pos => 3, type => 'CHAR', size => '2', not_null => 0, default => '' }

my $error;
my %HoH = ();
my (@def,$lastchar, @pairs, $pairs, $pairname, $pairvalue, $key, $value);
my $zipcode_table_name = 'ZipCodes';
my $creator = $DB->creator ($zipcode_table_name);

my $formatname = $CFG->{admin_root_path} ."/Plugins/ZipCodeData/". $IN->param('data_format_file');
open (DEF, "$formatname") || return $GT::SQL::error;
@def = <DEF>;
close DEF;

foreach (@def) {
$_ =~ s/\n//g; # Remove newline ?
$_ =~ s/\t//g; # Remove tabs ?
$_ =~ s/ //g; # Remove spaces ?

$lastchar = substr ($_, (length $_) - 1, 1);
if($lastchar eq ',') {
$_ = substr($_, 0, -1);
}

$_ =~ s/=>/\|/; # ZipCode | { pos => 1, type => 'VARCHAR', size => '5', not_null => 1, default => ''}
$_ =~ s/{//; # ZipCode | pos => 1, type => 'VARCHAR', size => '5', not_null => 1, default => ''}
$_ =~ s/}//; # ZipCode | pos => 1, type => 'VARCHAR', size => '5', not_null => 1, default => ''

@pairs = split /\|/, $_;
$pairname = $pairs[0]; # ZipCode
$pairvalue = $pairs[1]; # pos => 1, type => 'VARCHAR', size => '5', not_null => 1, default => ''

for $pairvalue ( split /,/, $pairvalue) {
($key, $value) = split /\=>/, $pairvalue;
$HoH{$pairname}{$key} = $value;
print "Column/key = value: $pairname/$key = $value<br>";
}
}

$creator->cols (\%HoH);
$creator->pk('ZipCode','Latitude','Longitude');

if (! $creator->create('force')) {
$GT::SQL::errcode ||= ''; #silence -w warning.
$GT::SQL::errcode eq 'TBLEXISTS' ? ($error = "Could not create table ZipCodes (table already exists)\n") :
($error = "Could not create table ZipCodes: $GT::SQL::error)");
}

$creator->load_table();

$creator->save_schema();

$_ =~ s/'//g; # ZipCode | pos => 1, type => VARCHAR, size => 5, not_null => 1, default =>

my $table_name = 'ZipCodes';
my $creator = $DB->creator ($table_name);
my $src_file = $CFG->{admin_root_path} ."/Plugins/ZipCodeData/". $IN->param('data_format_file');
my $def = GT::Config->load($src_file);
my $col_defs = $def->{cols};
$creator->cols ($col_defs);

if (! $creator->create('force')) {
$GT::SQL::errcode eq ($error = "Could not create table ZipCodes: $GT::SQL::error");
}

$creator->load_table(); # Creates a schema based on an existing sql table and saves it.

my $col_count = 0;
my $col_names = "";
my @column_names = $DB->table('ZipCodes')->ordered_columns;

foreach (@column_names) {
$col_names .= "$_,";
$col_count++;
}
$col_names = substr($col_names, 0, - 1);

my $db_delim = ',';
my $prefix_plus_table = $DB->prefix . $table_name;
my $zipcode_table = $DB->table($table_name) || return $GT::SQL::error;
my $filename = $CFG->{admin_root_path} ."/Plugins/ZipCodeData/". $IN->param('zipcode_data_file');

my (@db, $fields, @fields);
open (DB, "$filename") || return $GT::SQL::error;
chomp ($fields = <DB> );
@fields = split /$db_delim/, $fields;
@db = <DB>;
close DB;

my $row = 1;
my ($sth, $i, @item, %item, $insert_name, $insert_value);
foreach (@db) {
$i = 0;
$_ =~ s/\"//g;
$_ =~ s/\n//;
$_ =~ s/\r//;
@item = split /$db_delim/, $_;
%item = map { $fields[$i++] => $_ } @item;
$insert_name = "ZipID,"; # for auto increment
$insert_value = "'',";

foreach (@fields) {
$insert_name .= "$_,";
$insert_value .= $zipcode_table->quote($item{$_}) . ",";
}
$insert_value = substr($insert_value, 0, - 1);
print "$row) $insert_value <br>";
$sth = $zipcode_table->prepare ("INSERT INTO $prefix_plus_table ($col_names) VALUES ($insert_value)");
$sth->execute();
$row++;
}

$sth->finish;