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();