According to some advice I recieved on my other (poorly written) request for help, I've changed one line of my script, from:

        foreach my $index_col (keys %{$schema->{"zsql:table"}->{$db_ta
+ble}->{'zsql:index'}->{$db_index}->{'zsql:field'}} ) {
[download]

to the following two lines:

        my @columns = keys(%{$schema->{"zsql:table"}->{$db_table}->{'z
+sql:index'}->{$db_index}->{'zsql:field'}});
        foreach my $index_col (@columns ) {
[download]

But, all to no avail. My output hasn't changed:

Creating table TEST with statement
        create table TEST (TEST_ID INT NOT NULL, Name VARCHAR (255) NU
+LL, ItemID VARCHAR (60) NULL, REF_ID VARCHAR (32)
NULL, Entry_Point CHAR (1) NULL, Entry_Point_QA CHAR (1) NULL, Action 
+CHAR (1) NULL, Agent CHAR (1) NULL, PRIMARY KEY (T
EST_ID ))

Adding index TEST_2ND_KEY to table TEST with
        CREATE INDEX TEST_2ND_KEY on TEST (Entry_Point, ItemID, TEST_I
+D, REF_ID)

Adding index TEST_3RD_KEY to table TEST with
        CREATE INDEX TEST_3RD_KEY on TEST (Entry_Point, ItemID, TEST_I
+D, REF_ID)

Adding index TEST_4TH_KEY to table TEST with
        CREATE INDEX TEST_4TH_KEY on TEST (Entry_Point, ItemID, TEST_I
+D, REF_ID)
[download]

Thanks,
amonotod